Question

1- Задан массив из N вещественных элементов. Заменить каждый элемент, кроме первого, суммой предыдущих элементов.

2- Задан массив из N вещественных элементов. Найти минимальный из локальных минимумов данного массива.

3- Задана вещественная матрица, содержащая N строк и M столбцов (N≠M), в виде одномерного массива. Выполнить транспонирование матрицы, не выделяя дополнительного массива для хранения результатa.

Answer 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]<a[i+1]) and (a[i]<a[i-1]) and (a[i]<min) then
min:=a[i];
Writeln(min);
end.

Answer 2

огромное спасибо за помощь IIka1998

Answer 3

вы можете написать код на языке C