program xyz; var A:array [1..4][1..3]of integer; B:array [1..4] of integer; i,j,s:integer; begin s:=0; for i:= 1 to 4 do for j:= 1 to 3 do A[i,j]:= random(100)-50; for i:=1 to 4 do begin for j:=1 to 3 do s:=s+A[i,j]; b[i]:=s; s:=0; end; for i:= 1 to 4 do writeln (B[i]); end.
Answers & Comments
program xyz;
var A:array [1..4][1..3]of integer;
B:array [1..4] of integer;
i,j,s:integer;
begin
s:=0;
for i:= 1 to 4 do
for j:= 1 to 3 do
A[i,j]:= random(100)-50;
for i:=1 to 4 do
begin
for j:=1 to 3 do
s:=s+A[i,j];
b[i]:=s;
s:=0;
end;
for i:= 1 to 4 do
writeln (B[i]);
end.