Дан массив Р(5,5) из блока данных. Вывести массив на экран. Найти и вывести минимальный элемент среди элементов массива кратных 5.

1

Ответы и объяснения

Лучший Ответ!
2014-04-08T17:01:44+04:00
Uses crt;
var a:array[1..5,1..5] of integer;   
i,j,n,k:integer;
begin
randomize;
for i:=1 to 5 do begin   
for j:=1 to 5 do begin       
a[i,j]:=random(101)-50;       
write(a[i,j]:4);   
end;   
writeln;
end;
n:=50;
for i:=1 to 5 do   
for j:=1 to 5 do begin       
if a[i,j] mod 5=0 then k:=a[i,j];       
if k<n then n:=k;   
end;
writeln(Минимальный элемент кратный 5=',n);
end.