Question

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

Answer 1

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