. () , ( ) .
:
M [5] - ;
M [x] - x;
M [y+5] - ;
M [Succ(i)] - .
, , . , :
VAR
X, Y: ARRAY [1.. 10] OF INTEGER;
Z: ARRAY[1.. 10] OF INTEGER;
:
X: = Y;
Z: = X;
X Z .
. . , . .
. Turbo Pascal {R}. {$R+} . , , . ( ), . '''' , .
, {R+} . , .
-
.
1. 25 . . .
Turbo Pascal:
PROGRAM MAS;
VAR
M: ARRAY [1.. 25] OF REAL; { }
MAX, MIN, MN: REAL;
I, K, N: INTEGER; { }
BEGIN
{ 25 }
FOR I: = 1 TO 25 DO READ (M [I]);
{ MAX MIN }
MAX: = M [1]; K: = 1;
MIN: = M [1]; N: = 1;
{ }
|
|
FOR I:= 2 TO 25 DO
BEGIN
IF M [I] > MAX THEN
BEGIN
MAX: = M [I];
K: = I;
END;
IF M[I] < MIN THEN
BEGIN
MIN: = M [I];
N: = I;
END;
END;
{ }
MN: = M [K];
M [K]: = M [N];
M [N]: = MN;
{ }
FOR I: = 1 TO 25 DO WRITELN (M[I]);
END.
2. 108. , .
Turbo Pascal:
PROGRAM PRIM;
VAR
A: ARRAY [1.. 10, 1.. 8] OF INTEGER;
B: ARRAY [1.. 10] OF INTEGER;
I, J, S: INTEGER;
BEGIN
{ 108 }
FOR I:= 1 TO 10 DO
FOR J: = 1 TO 8 DO
READ (A[ I, J]);
{ }
FOR I: = 1 TO 10 DO
BEGIN
S: = 0;
FOR J: = 1 TO 8 DO
IF A [ I, J ] > 0 THEN S: = S + A [ I, J ];
B [ I ]: = S;
END;
{ }
FOR I: = 1 TO 10 DO WRITELN (B [ I ]);
END.
2.