Заполнить массив A(21) случайными числами в диапазоне от -1 до 17. Выведите его на экран. Pascal abc 9 класс
Заполнить массив 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.
Не нашли ответ?
Похожие вопросы