Что нужно поменять чтобы найти сумму элементов в каждой строке?
Answers & Comments
elenaklon
Поменять (соответственно их местам в программе): p:=0 p:=p+a[j,i]
Или программа целиком: const n=6; var a:array [1..n,1..n] of integer; i,j,s:integer; begin for i:= 1 to n do begin for j:=1 to n do begin a[i,j]:=Random(10)+1; write(a[i,j]:4) end; writeln; end; for i:= 1 to n do begin s:=0; for j:=1 to n do s:=s+a[i,j]; writeln ('Сумма элементов в строке ',i,' равна: ',s) end end.
Answers & Comments
p:=0
p:=p+a[j,i]
Или программа целиком:
const n=6;
var a:array [1..n,1..n] of integer;
i,j,s:integer;
begin
for i:= 1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=Random(10)+1;
write(a[i,j]:4)
end;
writeln;
end;
for i:= 1 to n do
begin
s:=0;
for j:=1 to n do s:=s+a[i,j];
writeln ('Сумма элементов в строке ',i,' равна: ',s)
end
end.