Pascal. Построить одномерный массив вещественных чисел.Числа сформировать при помощь...

0 голосов
33 просмотров

Pascal. Построить одномерный массив вещественных чисел.Числа сформировать при помощь генератора случайных чисел


Информатика (165 баллов) | 33 просмотров
0

Какой интервал?

Дано ответов: 2
0 голосов
Правильный ответ

Программа выводит числа в диапазоне [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.

(34.0k баллов)
0 голосов

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.

(1.8k баллов)