: I (I 1 3), j (j 1 10), tji , j- I- . si , I- :
. (8.1.)
( ) , , . , .
, . , , .
1) . 10 . , , . , 8.3 .
2) , , , . , . . , , , .., , , 10. , 8.3 .
, : . .
, , (8.1). . , , . 8.4. 8.4.
[10]:
program ompetitions;
var
I,J:Integer;
S:array[1..3] of Real;
T:array[1..3,1..10] of Real;
begin
for I:=1 to 3 do
begin
WriteLn( N ,I);
for J:=1 to 10 do
begin
Write( ,J,- ? );
ReadLn(T[I,J]);
end;
end;
for I:=1 to 3 do
begin
S[I]:=0;
for J:=1 to 10 do
S[I]:=S[I]+T[I,J];
end;
for I:= 1 to 3 do
Write( ,I,- ,S[I]);
end.
8.5.
A n , , , ( 8.5).