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

Вопрос школьника по предмету Информатика

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

Ответ учителя по предмету Информатика

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