>> 9 .

2.2.

,

, . .

, :

    for i:=1 to 10 do read (a[i])';

. :

    for i:=1 to 10 do a[i] :=i;

, 10 , , 0 99:

    randomize;
    for i:=1 to 10 do a[i]:=random(100);

 

 

@Mail.ru