Первое что пришло в голову, может можно проще незнаю.
Цитата:
Procedure RandomMasiv;
Var
Masiv: Array [1..20] of Real;
i: Integer;
begin
Randomize;
For i:= 1 To 20 Do
if Random(2) = 1 Then Masiv[i]:= Random(1000000)
Else Masiv[i]:= 1/Random(41);
end;
|