Program sadadasf;
var i,k: integer;
A: Array[1..20] of integer;
begin
For i:=1 to 20 do
k:=random(41)-20;
A[i]:=k;
end;
end.
Объяснение:
Program sadadasf;
var i,k: integer;
A: Array[1..20] of integer;
begin
For i:=1 to 20 do
begin
k:=random(41)-20;
A[i]:=k;
end;
end.
Объяснение: