Как создать одномерный динамический массив, заполненный случайными числами с одним знаком после запятой.
Ответы на вопрос
Ответил srzontmp
0
var i,n: integer;
a: array of real;
begin
write('n = '); readln(n);
setlength(a,n);
randomize;
for i:=0 to n-1 do
begin
a[i]:=random(1000)/10;
write(a[i],' ');
end;
end.
n = 10
81.8 24.7 93.9 64.2 39.6 11.1 77 0.3 98.2 42.6
Новые вопросы