.


:




:

































 

 

 

 





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...

 

( ).

. . , , .





:


: 2017-03-18; !; : 380 |


:

:

.
==> ...

1442 - | 1423 -


© 2015-2024 lektsii.org - -

: 0.009 .