Вычислить количество элементов матрицы, кратных 3 и 5 - Pascal

[koshak98]

Вычислить количество элементов двумерного массива R(8,4), которые кратны 3 и 5.

[Alex11223]

Покажите свои наработки, конкретные вопросы и т.п.

Или в раздел Фриланс если вы не хотите ничего делать, а ищете кого-то, кто выполнит ваши задачи за вознаграждение.

[newerow1989]

var i,j,c:integer;
    r:array[1..8,1..4] of integer;
begin
   Randomize;
   For i:=1 to 8 do
   begin
      For j:=1 to 4 do
      begin
         r[i,j]:=Random(21);
         Write(r[i,j]:2,'  ');
      end;
      Writeln;
   end;
   Writeln;
   c:=0;
   For i:=1 to 8 do
      For j:=1 to 4 do
         If r[i,j] mod 3=0 then
            Inc(c);
   Writeln('krat 3 - ',c);
   c:=0;
   For i:=1 to 8 do
      For j:=1 to 4 do
         If r[i,j] mod 5=0 then
            Inc(c);
   Writeln('krat 5 - ',c);
   c:=0;
   For i:=1 to 8 do
      For j:=1 to 4 do
         If r[i,j] mod 15=0 then
            Inc(c);
   Writeln('krat 3 i 5 - ',c);
   Readln;
end.