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

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]
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 > = 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 > = 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.