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

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

Answer 2

// PascalABC.NET 3.2, сборка 1417 от 28.03.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=MatrRandom(10,5,10,99);
  a.Println(3); Writeln(3*a.ColCount*'-');
  var b:=a.Rows.SelectMany(x->x).Where(x->x mod 3=0);
  Write('[',b.Count,']='); b.Println
end.

Пример
 67 37 13 90 96
 58 43 59 42 11
 85 54 94 13 33
 20 97 13 65 74
 31 15 64 36 32
 21 37 34 38 95
 79 97 95 90 81
 24 40 97 17 91
 69 10 63 51 33
 54 83 83 93 99
---------------
[18]=90 96 42 54 33 15 36 21 90 81 24 69 63 51 33 54 93 99