ru.algorithms

 
 - RU.ALGORITHMS ----------------------------------------------------------------
 From : Igor Kasyanchuk                      2:4623/55.90   04 Jan 2003  18:11:00
 To : All
 Subject : МАСИВ ЧИСЕЛ
 -------------------------------------------------------------------------------- 
 

 
 Вот програма  . Все работает на 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)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор 

Тема:    Автор:    Дата:    МАСИВ ЧИСЕЛ   Igor Kasyanchuk   04 Jan 2003 18:11:00   Re: МАСИВ ЧИСЕЛ   Oleg Khovayko   05 Jan 2003 02:00:59   МАСИВ ЧИСЕЛ   Igor Kasyanchuk   05 Jan 2003 13:08:00   Re: МАСИВ ЧИСЕЛ   Oleg Khovayko   06 Jan 2003 05:12:14   МАСИВ ЧИСЕЛ   Max Alekseyev   29 Jan 2003 18:52:30