масив чисел

From

Igor Kasyanchuk (2:4623/55.90)

To

Alexey Burdin

Date

2003-01-04T20:16Z

Area

RU.ALGORITHMS

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

 AB>     var s:string;
 AB>         i,n:longint;
 AB>         a:array [1..10] of integer;
 AB>     begin
 AB>        s:='0123456789';
 AB>        n:=random(2*3*4*5*6*7*8*9*10); {номер перестановки}
 AB>        for i:=1 to 10 do
 AB>        begin
 AB>           a[11-i]:=(n mod i)+1;
 AB>           n:=n div i;
 AB>        end;
 AB>        for i:=1 to 10 do
 AB>        begin
 AB>           n:=a[i];
 AB>           a[i]:=ord(s[a[i]])-48;
 AB>           delete(s,n,1);
 AB>        end;
 AB>     end. (C) 2002 Megabyte

Спасибо за ответ.

 IK>>  + Origin: Юзер, чайник, програмист, хакер...Кто ты ?
 IK>> (2:4623/55.90)
 AB>     А кто ТЫ?

А ты еху отмотай немного назад , там есть програма(уже я написал,хоть подсказали как зделать) и вроде проще. Если нет то :

ТИПА ПРОГРАМ;
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);
ТИПА ЕД ТОЧКА

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

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