Дан массив из n элементов. Найти наименьший элемент массива. Написать в паскале абс

program zz1;

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

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

i, min: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); / /выводим ответ

end.