Дан массив из целых чисел А (5,5). Найти минимальный положительный элемент.

program zz1;

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

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

i, min, j:integer;

begin

for i:=1 to n do

for j:=1 to n do

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

for i:=1 to n do

begin

for j:=1 to n do

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

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

end;

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

for i:=1 to n do

for j:=1 to n do

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

end.