Дана целочисленная матрица А размером М х N, где М и

Код написан в PascalABC.NET.

Program AandBarray;
var i, j, m, n, h: integer;
A: array[1..1000,1..1000] of integer;
B: array[1..1000] of integer;
begin
Write(m = );

Readln(m);
Write(n = );

Readln(n);
randomize;
for i := 1 to m do begin
for j := 1 to n do begin
A[i,j] := random(10);
write (A[i,j]:3)
end;
writeln;
end;
Writeln(Массив B:);
h := 0;
for i := 1 to m do begin
for j := 1 to n do begin
if (A[i,j] mod 3 = 0) then h := h + A[i,j];
end;
if (h = 0) then B[i] := -10 else B[i] := h;
Write(B[i]:4);
h := 0;
end;
End.