1. Дан целочисленный массив из 30 элементов, которые могут принимать значения

1.program zz1;
const n = 30; // задаем количество чисел в массиве
var i, min, max:integer; // задаем переменные целого типа
m:array [1..n] of integer;
begin
for i:=1 to n do // получаем n чисел случайных и записываем их в массив
m[i]:=random(51)+150;
max:=0;
min:=1000000;
for i:=1 to n do // организуем цикл, в котором переберем все числа массива
begin
if m[i] gt; max then max:=m[i]; //проверяем, если число из массива больше наибольшего, то записываем его в наибольшее
if m[i] lt; min then min:=m[i]; //проверяем, если число из массива меньше минимального, то записываем его в малое
end;
writeln(наибольший рост = , max); // выводим ответ
write(малый рост = , min);
end.
2. program zz1;
const n = 30; // задаем количество чисел в массиве
var i, k, j, b:integer; // задаем переменные целого типа
m:array [1..n] of integer;
begin
for i:=1 to n do // получаем n чисел случайных и записываем их в массив
m[i]:=random(51)+150;
k:=n div 2;
for i:=1 to n do // выводим полученный массив на экран
write(m[i], );
writeln; // переходим на новую строчку для вывода ответа

for i := 1 to k-1 do
for j := 1 to k-i do
if m[j] gt; m[j+1] then begin
b := m[j];
m[j] := m[j+1];
m[j+1] := b
end;
for i:=1 to n do // выводим полученный массив на экран
write(m[i], );
end.