Program n1;
var a: array[1..10] of integer;
i,p: integer;
begin
randomize;
write('массив: ');
p:=1;
for i:=1 to 10 do
begin
a[i]:=random(21)-10;
write(a[i],' ');
if a[i]<0 then p:=p*a[i];
end;
writeln;
write('произведение отрицательных: ',p)
end.
11111101=253
....................
В первом C конечно, а во втором, Точно знаю что по такой можно (n+1/2)*n
Vara: array of integer;i,j,z: integer;beginreadln(z);SetLength(a,z+2);for i:=1 to z doreadln(a[i]);for i:=z downto 1 doif i mod 2=0 thenfor j:=i to z-1 doa[j]:=a[j+1];for i:=1 to z-(z div 2) do write(a[i]:4);end.