Заполнить массив 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.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы