1)
const n=10;
var a:array[1..n] of integer;
i,min,imin:integer;
begin
Randomize;
for i:=1 to n do
begin
a[i]:=random(58)-23;
write(a[i]:4);
end;
writeln;
end.
Пример:
29 -17 34 26 5 -2 30 14 -5 -20
2)
begin
var n:=ReadlnInteger('n =');
var a:=ArrRandom(n,-23,34);
a.Println;
end.
Пример:
n = 1024 0 25 4 -20 14 29 14 -5 29