Дан двумерный массив 5*5. Заполнено случайным образом целыми числами от 1 до 100. Найти количество чисел, делящихся на 5 без остатка.

Const

n=5;

var

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

i, j, k:integer;

begin

Randomize;

Writeln ('Исходный массив') ;

k:=0;

for i:=1 to n do

begin

for j:=1 to n do

begin

a[i, j]:=Random (100) + 1;

Write (a[i, j]:4) ;

if a[i, j] mod 5 = 0 then k:=k+1

end;

Writeln

end;

Writeln ('Количество элементов, кратных 5, равно ', k)

end.

Контрольный пример

Исходный массив

82 100 2 68 88

31 75 21 18 7

100 65 23 80 27

1 88 49 94 93

50 87 77 67 80

Количество элементов, кратных 5, равно 7