Question

Как найти сумму элементов 1 строки? program sbb; uses crt; var i,j,s: integer; a: array[1..5,1..10] of integer; begin for i: =1 to 5 do begin for j: =1 to 10 do begin random(50); a[i,j]: =random(50); write(' '); write(a[i,j]); end; writeln end;

Answer 1

Uses crt;
Var
 i,j,s:integer;
 a:array[1..5,1..10] of integer;
Begin   
   for i:=1 to 5 do
        begin
           for j:=1 to 10 do
             begin
               random(50);               
               a[i,j]:=random(50);               
               write(' ');               
               write(a[i,j]);                 
               if i=1 then begin             
                              s:=s+a[i,j];
                              end;     
                        end;         
            writeln
   end;
  writeln(s);
end.

Так же можно сделать чтобы искалась сумма каждой строки, например вот код на скрине...