uses crt;
var i:integer;
a:array[1..12]of integer;
begin
writeln('вывод последовательности:');
for i:=1 to 12 do
randomize;
a[i]:=-20+random(36);
write(a[i],' ');
end;
end.
Объяснение:
вроде так
