Question

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

Answer 1

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.