Question

Задание по информатике. Помогите плз

Answer 1

var
i: integer;
a: array [1..125] of integer;
begin
randomize();
for i:=1 to 125 do a[i]:= -51 + random(126);
for i:=1 to 125 do write (a[i], ' ');
end.