Question

Составить программу для заполнения массива 20-ю целыми случайными числами, из [-50;50]

Answer 1

var
  A: array [1..20] of integer;
  i: byte;
begin
  randomize;
  for i := 1 to 20 do
    A[i] := random(101)-50;
  for i := 1 to 20 do
    writeln(A[i]);
end.