1- задан массив из n вещественных элементов. заменить каждый элемент, кроме первого, суммой предыдущих элементов. 2- задан массив из n вещественных элементов. найти минимальный из локальных минимумов данного массива. 3- задана вещественная матрица, содержащая n строк и m столбцов (n≠m), в виде одномерного массива. выполнить транспонирование матрицы, не выделяя дополнительного массива для хранения результатa.

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.