Дан двумерный массив 5*5. Заполнено случайным образом целыми числами от 1 до 100. Найти количество чисел, делящихся на 5 без остатка.
Дан двумерный массив 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
Не нашли ответ?
Похожие вопросы