Получить все отрицательные члены последовательности

@manlee · Регистрация: 08.03.2014

Author24 — интернет-сервис помощи студентам

Даны целые числа a1...an . Если в данной последовательности ни одно целое четное число не расположено после нечетного, то получить все отрицательные члены последовательности, иначе - все положительные. Порядок следования чисел в обеих случ. заменяется на обратный.

Суть вопроса... Вот в первом варианта, когда ввожу к примеру массив из 6 эл. оно работает, к примеру:
2,-4,-6,1,-3,47 оно выводит в результате -4, -6, -3
А вот когда иначе, когда нужно вывести положительные (1,-3,47, 2,-4,-6) - оно снова выводит отрицательные. Помогите исправить.

И еще нужно как-то сделать, чтобы он писало, что нет отрицательных если их реально нет. Но хотябы подскажите, как вывести положительные.

Pascal

program Task_3;
var
    a:array [1..20] of integer;
    i,n,p,m:integer;
 
Begin
    writeln('Введите количество элементов последовательности A:');
    readln(n);
    writeln('Введите элеметы последовательности A:');
    for i:=1 to n do
        read(a[i]);
    p:=0;
    for i:=1 to n do
        begin
            m:=a[i] mod 2;
            if (m=0) and (p=1) then begin
                p:=2; break
            end;
            p:=m;
        end;
    if p<2 then
        begin
            for i:=n downto 1 do
                if a[i]<0 then write(a[i],' ')
                
        end
    else
        begin
            for i:=n downto 1 do
                if a[i]>=0 then write(a[i],' ')
                
        end;
    writeln
End.

Добавлено через 26 минут
Блин, пожалуй я удалюсь с этого форума

Прошу прощения. Прога работает. Только вот как вывести сообщения от том что нет отрицательных?

magirus · 14.05.2015, 07:49

так тыж удаляешься.. че тогда вопросы спрашиваешь?

@Соловьёв_Егор · 14.05.2015, 07:57

Так подсчитывай количество отрицательных/положительных, потом по условиям выводи.

magirus Почетный модератор 28045 / 15778 / 982 Регистрация: 15.09.2009 Сообщений: 67,752 Записей в блоге: 78
	14.05.2015, 07:49	2
	так тыж удаляешься.. че тогда вопросы спрашиваешь? 0

@Соловьёв_Егор 60 / 60 / 53 Регистрация: 17.02.2013 Сообщений: 242
	14.05.2015, 07:57	3
	Так подсчитывай количество отрицательных/положительных, потом по условиям выводи. 0