var
a:array[1..15] of integer;
i:integer;
begin
randomize;
writeln('Сгенерированный массив:');
for i := 1 to 12 do
a[i] := random(31) - 10;
write(a[i], ' ');
end;
writeln;
end.
var
a:array[1..15] of integer;
i:integer;
begin
randomize;
writeln('Сгенерированный массив:');
for i := 1 to 12 do
begin
a[i] := random(31) - 10;
write(a[i], ' ');
end;
writeln;
end.