Ф-ции и процедуры. В чём ошибка??? Программа не работает!:(

[katya36]

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

program p75ex39;
{$APPTYPE CONSOLE}
uses
  SysUtils;
const
  n=100;
Type
  mass=array[1..n] of integer;



procedure InputMass(var A:mass);

var i:integer;

begin

for i:=1 to n do
  read(A[i]);
  readln
end;



procedure PrintNeg(A:mass);
var i:integer;
begin
  for i:=1 to n do
    begin
      if A[i]<0 then writeln(A[i]);

    end;
end;

procedure PrintPos(A:mass);
var i:integer;
begin
  for i:=1 to n do
    begin
      if A[i]>0 then writeln(A[i]);

    end;
end;



function proverka(A:mass):boolean;
var
  i:integer;

begin
  i:=0;
  repeat
    i:=i+1
  until
    (odd(A[i])=true) or (i=n);
  if i=n then proverka:=true
  else
    begin
      repeat i:=i+1 until (odd(A[i])=false) or (i=n);
      proverka:=true;
    end;

end;

Где ошибка?? исправьте меня пожалуйста!

[Stilet]

Добавь в конец

var m:mas;
Begin
 InputMass(mas);PrintNeg(mas);
End.

А что за проверка, я не знаю.

[alex_fcsm]

как я понял Вам нужно отслеживать есть ли после нечетных чисел хоть одно четное(1 13 5 17 9 21 ?????....), если есть то все числ делать отрицательными. При выводе менять порядок (for i:=n downto 1)


Функцию проверки я бы написал вот так: ищем первое нечетное число и проверяем есть ли после него четные

function proverka(A:mass):boolean;
var  i,j:integer;

begin
i:=0;
proverka:=true;
repeat
inc(i);
until (a[i] mod 2=1)or(i=n);
for j:=i+1 to n do
 if a[j] mod 2 =0 then proverka:=false;
end;

(4 14 12 6 7 3 5 1) - true
(3 1 2 6 8 9 12 13 14) - false ИМХО

А программа(Вы только выложили процедуры и функции) будет выглядеть так

var m:mass;
Begin
 InputMass(m);
 if Proverka(m) then PrintPos(m)
    else PrintNeg(m);
End.

Правильность PrintPos и PrintNeg на Вашей совести

[katya36]

Alex, спасибо, Вы очень помогли мне! Теперь до меня окончательно всё дошло)))