15.11.2009, 21:50
|
 |
Активный
|
|
Регистрация: 31.03.2009
Адрес: Украина, г.Днепропетровск
Сообщения: 324
Версия Delphi: Delphi7
Репутация: 3877
|
|
1
Вот пример:
Цитата:
Procedure RandomMasiv;
Var
Masiv: Array [1..20] of Integer;
i: Integer;
begin
Randomize;
For i:= 1 To 20 Do Masiv[i]:= Random(1000000);
end;
|
|