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

Question

Информатика

Дареха

19 января, 19:43

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

+4

Ответы (1)

Знаете ответ на вопрос?

Ева · Answer 1

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
end;

writeln (Минимальный элемент кратный 5=', n) ;

end.