4
.
: .
, , .. , . (, , ..), . , . , , .
. :
var
a: array [1..10] of real;
b: array[0..50] of integer;
c: array[-3..4] of boolean;
ARRAY OF (, ). ARRAY -, . - , a 10 , b 51, c 8 . OF , .
(, ), ( - 1, ).
.
b[17]:= 123;
c[-2]:= a[1]>a[2];
for k:= 1 to 10 do a[k]:= 0;
, -. a[0] . .
, , .
const
N = 1000;
MaxValue = 100+1;
var
a: array[1..N] of integer;
i: integer;
max, min: integer;
s: real;
begin
for i:= 1 to N do a[i]:= random(MaxValue);
s:= 0;
max:= a[1];
min:= a[1];
for i:= 1 to N do
begin
s:= s+a[i];
if a[i]<min then min:= a[i];
if a[i]>max then max:= a[i];
end;
writeln( = , min, = , max, = ,
s/N);
end.
RANDOM(MAX), , 0 MAX1 (MAX ).
(type)
, . , -:
|
|
type
Vector = array[1..3] of real;
:
var
a, b: Vector;
OF, . , :
var
a: array[1..3] of array[2..2] of array[1..5] of real;
:
var
a: array[1..3, 2..2, 1..5] of real;
, , , , .
, :
var
a, b: Vector;
a, b: array[1..5] of real;
...
a:= b;
!!! Type mismatch
var
a: array[1..5] of real;
b: array[1..5] of real;
...
a:= b; { }
, .
var
a, b: array[1..5] of real;
eq: boolean;
i: integer;
...
eq:= true;
for i:= 1 to 5 do
if a[i]<>b[i] then eq:= false;
if eq then...
( ).
. . , , .