Дана целочисленная матрица А размером М х N, где М и N вводятся с клавиатуры. Сформировать одномерный массив В, где В[i] равно сумме элементов кратных

трем в i-ой строке. Если таких элементов нет, то В[i] равно - 10.

Двумерные массивы

Var

A : array[1 ... 100,1 ... 100] of Integer;

B : array[1 ... 100] of Integer;

M, N, s, i, j : Integer;

Begin

Readln (M, N) ;

For i:=1 to M do

Begin

s:=0;

For j:=1 to N do

Begin

A[i, j]:=Random (100) ;

Write (A[i, j]:4) ;

If A[i, j] mod 3 = 0 then s:=s+A[i, j];

end;

If s=0 then B[i]:=-10 else B[i]:=s;

Writeln (' ', B[i]) ;

end;

end.