Процедура и функции: Вывести элементы матриц, кратные 3 - Turbo Pascal - Ответ 1737208

const
 n_n = 5; 
 n_m = 8;
 m_n = 10;
 m_m = 6;
type
 TMat = array[1..100, 1..100] of integer;
var
 MatN: TMat;
 MatM: TMat;
 i, j, k, l: integer;
 
procedure Kratn(ar: TMat; n, m: integer);
var
 i, j: integer;
begin
 writeln('Элементы кратные 3: ');
  for i:=1 to n do
   for j:=1 to m do
    if ar[i, j] mod 3 = 0 then write(ar[i, j], ' ');
 writeln;
end;
 
begin
 writeln('Матрица N: ');
  for i:=1 to n_n do
   begin
    for j:=1 to n_m do
     begin
      MatN[i, j]:=random(100);
      write(MatN[i, j]:4);
     end;
    writeln;
   end;
 writeln('Матрица M: ');
  for k:=1 to m_n do
   begin
    for l:=1 to m_m do
     begin
      MatM[k, l]:=random(100);
      write(MatM[k, l]:4);
     end;
    writeln;
   end;
 writeln;
 Kratn(MatN, n_n, n_m);
 Kratn(MatM, m_n, m_m);
end.