Var A:array[1..4,1..3] of integer; i,j:integer; Begin For i:= 1 to 4 do Begin For j:= 1 to 3 do Begin A[i,j]:=random(5)+15; Write(A[i,j]:3,' ') End; WriteLn; End; WriteLn; For i:= 1 to 4 do Begin For j:= 2 to 3 do A[i,1]:=A[i,1]+A[i,j]; Write(A[i,1]); WriteLn; End; End.
A:array[1..4,1..3] of integer;
i,j:integer;
Begin
For i:= 1 to 4 do
Begin
For j:= 1 to 3 do
Begin
A[i,j]:=random(5)+15;
Write(A[i,j]:3,' ')
End;
WriteLn;
End;
WriteLn;
For i:= 1 to 4 do
Begin
For j:= 2 to 3 do
A[i,1]:=A[i,1]+A[i,j];
Write(A[i,1]);
WriteLn;
End;
End.