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

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.