1- Задан массив из N вещественных частей. Поменять каждый элемент, не считая

1.program zz1;
const n = 5; // задаем количество частей в массиве
var a: array[1..n] of real;
i,j:integer;
begin
for i:= 1 to n do // вводим n вещественных чисел с клавиатуры
read(a[i]);
for i:= 2 to n do // получаем суммы частей
a[i]:= a[i]+a[i-1];
for i:=1 to n do //выводим ответ
writeln(a[i]);
end.
2.program zz1;
const n = 5;// задаем количество элементов в массиве
var
a: array[1..n] of real;
i:integer;
min:real;
begin
for i:= 1 to n do // вводим n вещественных чисел с клавиатуры
readln(a[i]);
min:= 1000000000;
for i:=2 to n-1 do
if (a[i]lt;a[i+1]) and (a[i]lt;a[i-1]) and (a[i]lt;min) then // обретаем малый
min:=a[i];
Writeln(min); //выводим ответ
end.
3.program zz1;
const n = 4;
m = 3; // задаем количество частей в массиве
var i, j, v:integer; // задаем переменные целого типа
a:array [1..n,1..m] of real;
b:array [1..n*m] of real; k:real;
begin
for i:=1 to n do
for j:=1 to m do // получаем числа и записываем их в массив
a[i,j]:=random(101)+random;
for i:=1 to n do // выводим полученный массив на экран
for j:=1 to m do
write(a[i,j]:8:2);
for i:=1 to n do // транспонируем массив
begin
if v gt;= n*m div 2 then break;
for j:=1 to m do
begin
k:=a[i,j];a[i,j]:=a[n-i+1,m-j+1];a[n-i+1,m-j+1]:=k;v:=v+1;
if v gt;= n*m div 2 then break;
end;
end;
writeln;
for i:=1 to n do // выводим приобретенный массив на экран
for j:=1 to m do
write(a[i,j]:8:2);
end.