Задание по информатике. Помогите плз
Приложения:
Ответы на вопрос
Ответил danulpopov
0
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.
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.
Новые вопросы