МАСИВ ЧИСЕЛ

From

Igor Kasyanchuk (2:4623/55.90)

To

All

Date

2003-01-04T17:11Z

Area

RU.ALGORITHMS

             ────────── Здравствуй  All!:-) ─────────

Вот програма  . Все работает на 100% . Быстро и понятно .
Спасибо огромное Andrew Starsh (его идея)  и остальным.

ТИПА ПРОГРАМ ;
label l1;
var a:array[1..10] of integer;
i,k:integer;
begin
Randomize;
for i:=1 to 10 do
a[i]:=0;
for i:=1 to 10 do begin
l1:
k:=random(10)+1;
if (a[k]=0) then a[k]:=i else goto l1;
end;
for i:=1 to 10 do
write(a[i]:3);
end.


            С наилучшими пожеланиями
                                        -  Игорь Касянчук

 * Origin: Юзер, чайник, програмист, хакер...Кто ты ? (2:4623/55.90)