Вопрос по информатике:
1- Задан массив из N вещественных элементов. Заменить каждый элемент, кроме первого, суммой предыдущих элементов.
2- Задан массив из N вещественных элементов. Найти минимальный из локальных минимумов данного массива.
3- Задана вещественная матрица, содержащая N строк и M столбцов (N≠M), в виде одномерного массива. Выполнить транспонирование матрицы, не выделяя дополнительного массива для хранения результатa.
- 24.06.2018 03:40
- Информатика
- remove_red_eye 16578
- thumb_up 11
Ответы и объяснения 1
1.
const
n = 5;
var
a: array[1..n] of real;
i,j:integer;
begin
for i:= 1 to n do
readln(a[i]);
for i:= n downto 2 do
begin
a[i]:=0;
for j:= 1 to i-1 do
a[i]:= a[i]+a[j];
end;
for i:=1 to n do
writeln(a[i]);
end.
2.
const
n = 5;
var
a: array[1..n] of real;
i:integer;
min:real;
begin
for i:= 1 to n do
readln(a[i]);
min:= 1000000000;
for i:=2 to n-1 do
if (a[i]
Writeln(min);
end.
- 25.06.2018 18:19
- thumb_up 26
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.