, , , () .
:
1, 2, , n , n ;
0, 1, 2, , 10 , 11 .
( ), ( ) ..
. integer, real char, . , . (). . , , . .
1, 2, , n.
;
1, 2,, n ( ) ;
7 .
, , , .
.
:
Type
= Array [ ()] Of ;
Var
: ;
Var:
Var : array [ ()] Of ;
Array ( );
Of ( ).
, integer, longint.
, .
. , : + 1.
:
Type
mas = array [1..20] of real;
Var X: mas;
, . .
, , :
.
, 30 , 1, 2, , 30.
i ( ) .
i i- , i = 1, 2, , 30.
.
|
|
: .
Program Primer_1;
Var i: integer;
X: array [1..30] of Integer;
Begin
i:= 1;
While i <= 30 Do
Begin
Read (X[i]); i:= i + 1
End;
Readln
End.
:
-7 _ 4 _ -2 _ 0 _ 12 _ -1 _ -5 _ 9 _ 11 _ -3 _ -5 _ _15, Enter.
, Enter, :
-7 Enter
4 Enter
-2 Enter
15 Enter
.
:
Program Primer_2;
Var i: integer;
X: array [1..30] of Integer;
Begin
i:= 1;
Repeat
Read (X[i]); i:= i + 1
Until i > 30;
Readln
End.
X .
:
Program Primer_3;
Var i: integer;
X: array [1..30] of Integer;
Begin
For i:= 1 To 30 Do Read (X[i]);
Readln
End.
, (i).
.
Read Readln Write Writeln. . , . :
For i:= 1 To n Do Write (X[i], );
For i:= 1 To n Do Writeln (x[i]).
, 1, 2, , n, , :
Program Primer_4;
Const n = 30;
Var i: Integer;
X: Array [1..n] Of Real;
Begin
For i:= 1 To n Do Write (X[i]: 6: 2, );
Writeln; { }
Readln
End.