Pascal. Построить одномерный массив вещественных чисел.Числа сформировать при помощь генератора случайных чисел
Какой интервал?
Программа выводит числа в диапазоне [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.
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.