program lab6;
const n = 10;
type mas = array [1 .. n] of integer;
var a: mas;
i, o1, o2, j, x, p, s: integer;

begin
writeln('Введите элементы массива: ');
for i := 1 to n do read(a[i]);

p := 1;
s := 0;
o1 := -1;
o2 := -1;

for i := 1 to n do begin
if (i mod 2 = 0) then p := a[i] * p;
if (a[i] = 0) then o2 := i;
if (a[i] = 0) and (o1 = -1) then o1 := i;
end;

if (o1 <> -1) then begin
for i := o1 to o2 do s := s + a[i];
end;

{}
j := 0;

for i := 1 to n do
if (a[i] < 0) and (j = 0) then j := i;

if j <> 0 then begin
for i := j + 1 to n do
if a[i] >= 0 then begin
x := a[i];
a[i] := a[j];
a[j] := x;
inc(j);
end;
end;


writeln('Произведение элементов массива с чётными номерами: ', p); {182}
writeln('Сумма элементов массива, расположенных между первым и последним нулевыми элементами: ', s); {6}
write('Сжатый массив: ');
for i := 1 to n do write(a[i]:4);

end.