var a:array[1..100,1..100] of integer;
b:array[1..100] of integer;
s,i,j,m,n:integer;
begin
writeln('введите кол-во строк'); readln(m);
writeln('введите кол-во столбцов');readln(n);
for i:=1 to m do begin
for j:=1 to n do begin a[i,j]:=random(60); write(a[i,j]:4); end;writeln;end;
 for i:= 1 to m do begin
        b[i]:=0;
        for j:= 1 to n do
            b[i]:=b[i]+a[i,j];

        write(' ',b[i]);
    end;
End.