Question

Заполнить массив A(21) случайными числами в диапазоне от -1 до 17. Выведите его на экран. Pascal abc 9 класс

Answer 1

const 
n=21; 
var a:array[1..n] of real; 
i:integer; 
begin 
randomize; 
for i:=1 to n do begin 
a[i]:=random(18)+-1; 
write(a[i],' '); 
end; 
end.