1. Дан целочисленный массив из 30 элементов, которые могут принимать значения от 150 до 200 - рост учащихся выпускного класса. Напишите программу, которая выводит номера элементов с максимальными и минимальными значениями. 2. Дан целочисленный массив размерностью N (N - чётное число), заполненный случайными числами. Упорядочить по возрастанию первую половину массива, вторую половину оставить без изменений.

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] > max then max:=m[i]; / /проверяем, если число из массива больше максимального, то записываем его в максимальное

if m[i] < 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] > 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.