подсчитайте сумму элементов каждой строки массива целых чисел X[1:3,1:2](составить...

Question

подсчитайте сумму элементов каждой строки массива целых чисел X[1:3,1:2](составить алгоритм и блок-схему)

Answer 1

var a: array [1..100,1..100] of integer;
n,m,s,i,j:integer;
Begin
    read(n,m);
    for i:= 1 to n do
        for j:= 1 to m do
            read(a[i,j]);

    for i:= 1 to n do begin
        s:=0;
        for j:= 1 to m do
            s:=s+a[i,j];
        writeln('S[',i,'] = ',s);
    end;
End.