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

Question

Информатика

Агарь

24 апреля, 13:14

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

+1

Ответы (1)

Знаете ответ?

Петюша · Answer 1

Var a:array[1 ... 5,1 ... 5]of integer;

i, j, ans:integer;

begin

ans:=a[1,1];

for i:=1 to 5 do begin

for j:=1 to 5 do begin

read (a[i, j]) ;

if (a[i, j]
end; end;

writeln (ans) ;

end.