дан массив состоящий из 15 чисел. Найти среди них максимальный и минимальный элемент.

program zz1;

const n=15; / /задаем количество элементов в массиве

var mas:array[1 ... n] of integer;

i, min, max:integer;

begin

for i:=1 to n do

mas[i]:=random (20) + 1; / /вводим числа в массив рандомно от 1 до 20

for i:=1 to n do

write (mas[i],' '); / /выводим числа из массива на экран

writeln; / /переходим на новую строку для вывода

min:=1000000; / /задаем начальное значение минимального числа (максимально возможное)

for i:=1 to n do

if mas[i]
write (' минимальный элемент массива - ', min); / /выводим ответ

writeln; / /переходим на новую строку для вывода

max:=-1000000; / /задаем начальное значение максимального числа (минимально возможное)

for i:=1 to n do

if mas[i]>max then max:=mas[i]; / /проверяем, если число из массива больше максимального, то записываем его в максимальное

write (' максимальный элемент массива - ', max); / /выводим ответ

end.