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.
Так же можно сделать чтобы искалась сумма каждой строки, например вот код на скрине...
e verbs in
lian restaurant. He couldn't
(3)
(work
iness, his own restaurant. At
Adam wasn't interested inTraveller
e verbs in
lian restaurant. He couldn't
(3)
(work
iness, his own restaurant. At
Adam wasn't interested inTraveller
e verbs in
lian restaurant. He couldn't
(3)
(work
iness, his own restaurant. At
Adam wasn't interested inTraveller
e verbs in
lian restaurant. He couldn't
(3)
(work
iness, his own restaurant. At
Adam wasn't interested inTraveller
e verbs in
lian restaurant. He couldn't
(3)
(work
iness, his own restaurant. At
Adam wasn't interested inTraveller
e verbs in
lian restaurant. He couldn't
(3)
(work
iness, his own restaurant. At
Adam wasn't interested inTraveller
e verbs in
lian restaurant. He couldn't
(3)
(work
iness, his own restaurant. At
Adam wasn't interested inTraveller
e verbs in
lian restaurant. He couldn't
(3)
(work
iness, his own restaurant. At
Adam wasn't interested inTraveller
e verbs in
lian restaurant. He couldn't
(3)
(work
iness, his own restaurant. At
Adam wasn't interested inTraveller
e verbs in
lian restaurant. He couldn't
(3)
(work
iness, his own restaurant. At
Adam wasn't interested inTraveller
e verbs in
lian restaurant. He couldn't
(3)
(work
iness, his own restaurant. At
Adam wasn't interested inTraveller
e verbs in
lian restaurant. He couldn't
(3)
(work
iness, his own restaurant. At
Adam wasn't interested in