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

Question

Информатика

Эмка

30 декабря, 18:11

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

+1

Ответы (2)

Знаете ответ?

Питирим · Answer 1

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

Валентин · Answer 2

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.