Pascal. Построить одномерный массив вещественных чисел.Числа сформировать при помощь генератора случайных чисел
Pascal. Построить одномерный массив вещественных чисел.Числа сформировать при помощь генератора случайных чисел
Гость
Ответ(ы) на вопрос:
Гостьvar
mas:array [1..20] of real;
i:integer;
begin
randomize;
for i:=1 to 20 do begin
mas[i]:=random(100)-70+random(1000)/1000;
write(mas[i], ' ');
end;
end.
ГостьПрограмма выводит числа в диапазоне [0..R)
Const
N = 13;
Var
A:array[1..N] of real;
i,R:integer;
Begin
Write('R = ');ReadLn(R);
For i:= 1 to N do
Begin
A[i]:=random()*R;
Write(A[i]:0:3,' ');
End;
End.
Не нашли ответ?
Похожие вопросы