Создать массив a из десяти целых чисел, принадлежащих промежутку -50; 50). Вывести полученный массив на экран

Вопрос от пользователя: Емельян

Создать массив a из десяти целых чисел, принадлежащих промежутку [-50; 50). Вывести полученный массив на экран

Ответ: Николич

Var A:array[1 … 10] of integer;

i: integer;

begin

randomize;

for i:=1 to 10 do begin

A[i]: = (random (101) — 50);

writeln (A[i]);

end;

end.