Создать массив 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.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.