Question

В массиве 10 на 5 заполненном случайными двузначными числами, посчитать количество чисел кратных 3, и вывести эти числа в строчку.

Answer 1

Const
   N = 10;
   M = 5;
Var
   A:array[1..N,1..M] of byte;
   i,j,k:integer;
Begin
Randomize;
WriteLn('Исходный массив:');
For i:= 1 to N do
    Begin
    For j:= 1 to M do
        Begin
        A[i,j]:=random(90)+10;
        Write(A[i,j]:3,' ')
        End;
    WriteLn
    End;
Write('Числа, кратные трём:');
For i:= 1 to N do
    For j:= 1 to M do
        if A[i,j] mod 3 = 0 then
           Begin
           Write(' ',A[i,j]);
           k:=k+1
           End;
WriteLn;
WriteLn('Их количество: ',k)
End.



Пример работы программы:

Исходный массив:
 89  38  43  42  57
 43  23  71  61  82
 77  80  44  69  92
 35  33  97  48  78
 58  38  58  88  62
 49  43  75  14  68
 20  19  18  43  47
 13  84  14  46  86
 26  22  87  69  75
 68  84  88  38  49
Числа, кратные трём: 42 57 69 33 48 78 75 18 84 87 69 75 84
Их количество: 13