ответ:
program posled;
var a: array[1..100] of integer;
i, n: integer;
begin
write (‘сколько элементов? ’); readln (n);
for i=1 to n do
a[i]: = random(58)-23;
writeln (a[i],’ ‘);
end;
end.
