Написать программу в Pascal даны целые числа а1...аn. Если в данной последовательности ни одно четное число не расположено после нечетного.то получить все отрицательные члены последовательности иначе-положительное.

Предыдущий
вопрос Следующий
вопрос

program Sequence;

va
n, i: integer
a: array[1..100] of integer
flag: boolean;

begi
writeln('Введите количество чисел в последовательности:')
readln(n);

writeln('Введите элементы последовательности:')
for i := 1 to n d
readln(a[i]);

flag := true
for i := 1 to n - 1 d
begi
if (a[i] mod 2 <> 0) and (a[i + 1] mod 2 = 0) the
begi
flag := false
break
end
end;

writeln('Результат:')
if flag the
begi
for i := 1 to n d
begi
if a[i] < 0 the
write(a[i], ' ')
end
en
els
begi
for i := 1 to n d
begi
if a[i] > 0 the
write(a[i], ' ')
end
end
end.