, , , . . ? , , , , . , ,
Var
a, b: array [1..10] of real;
a b (a:= b). a b. ( !).
, , , . , .. , . .
Var
A: array [1..10] of integer;
I: byte; { I }
Begin
For i:=1 to 10 do
Readln (a[i]); { i- }
, , random (N).
Var
A: array [1..10] of integer;
I: byte; { I }
Begin
For i:=1 to 10 do
A [ i ]:= random (10); { i - 0 10}
, , , .
Var
A: array [1..10] of integer;
I: byte; { I }
Begin
For i:=1 to 10 do
Write (a [ i ], ); { , }
. , , .. , .
Var
A: array [1..10] of integer;
I: byte; { I }
Begin
For i:=1 to 10 do
Writeln (a[, i,]=, a[i]); { }
|
|
, , :
a [1]=2
a [2]=4
a [3]=1 ..
. : A[i, j] A[i],[ j], . . . . . :
: 1. Type M = array[1..n, 1..m] of real; Vec A, B:M; 2. Type M = array[1..n] of array[1..m] of real; Vec A, B:M; 3. Type V = array[1..n] of real; Type M = array[1..m] of V;
, . 2. : : Var A,B: array[1..n, 1..m] of real;
, Type . |
7.
8.