Question

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

Answer 1

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.