Опубликовано 22.08.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.