задачa в паскале.

[Crabsid]

2.2 Вводятся целые числа. Конец ввода – 0. Определить среди четных чисел максимальное, среди нечетных – минимальное, а также общее количество введенных чисел.

[b2soft]

program blablabla2;
var n,maxn,all,minn:integer;
begin
maxn:=-2147483648;
minn:=2147483648;
all:=0;;
n:=0;
while readln(n)<>0 do
begin
if (n mod 2 = 0) and (n>maxn) then maxn:=n; //n - вводимое число, maxn - максимальное четное
if (n mod 2 <>0) and (n<minn) then minn:=n;//minn - минимальное четное
inc(all);//all  - все числа;
end;
writeln(maxn, ' ', minn, ' ', all);
end.

___________
Столько постов на форуме, а оформлять исходный код так и не научились!

Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!

Модератор.

[Serge_Bliznykov]

readln - это процедура. её нельзя сравнивать с нулём!

maxn:=-2147483648;
minn:=2147483648;

я Вам по большому секрету скажу, что тип данных Integer в Pascal платформозависим! Если речь идёт о TurboPascal - то там знаковое двухбайтное целое ( диапазон от -32768 до 32767 )
но даже в случае LongInt максимально возможное значение это 2147483647

для решения данной проблемы можно заменить на присвоение на MaxInt

но, много лучше, вынести чтение первого элемента из цикла и присвоить его минимальному и максимальному значению.
примерно так:

program FindMM;
var n,maxn,minn, count :integer;
begin
  read(n);
  if n=0 then WriteLn('Нет ни одного члена последовательности!')
  else begin
    maxn := n;
    minn := n;
    Count := 1;
    while n<>0 do begin
       read(n);
       if n<>0 then begin
          inc(count);
          if odd(n) and (n<minn) then minn := n;
          if not odd(n) and (n>maxn) then maxn := n;
       end;
    end;
    writeln('Максимальное: ',maxn, '  минимальное: ', minn, ' всего чисел:', count);
  end; 
end.

[CepbIu]

Serge_Bliznykov, человеку нужно ввести строку

[Serge_Bliznykov]

Сообщение от CepbIu

человеку нужно ввести строку

CepbIu, с чего Вы взяли?! где в задании хоть намёк на строку есть?!

[CepbIu]

Сообщение от Serge_Bliznykov

CepbIu, с чего Вы взяли?! где в задании хоть намёк на строку есть?!

2.2 Вводятся целые числа. Конец ввода – 0.

а вы проверяете не ввёл ли пользователь 0

[Serge_Bliznykov]

а вы проверяете не ввёл ли пользователь 0

"вводятся целые числа" - значит вводятся последовательно.
проверка на ноль, т.к. "Конец ввода – 0"

всё так же не вижу в задании слов "вводится СТРОКА с числами"...

впрочем, спор считаю пустой...
зачем я что-то пытаюсь Вам доказать?!
Считаете, что я неправ - воля Ваша...


ДОБАВЛЕНО

кстати, среди чисел вообще может не быть чётных или нечётных.
Вот вариант, который это учитывает

program FindMM;
var n,maxn,minn, count :integer;
  isMax, isMin : boolean;
begin
  isMax := false;
  isMin := false;
  Count := 0;

  repeat
    read(n);
    if n<>0 then begin
      inc(Count); {нарастим счётчик}

      {n - нечётное}
      if odd(n) then begin
        if Not isMin then begin
             minn := n;
             isMin := true;
        end
        else 
          if (n<minn) then minn := n;
      end
      {иначе, если n - чётное}
      else begin
        if Not isMax then begin
           maxn := n;              
           isMax := true;
        end
        else
          if (n>maxn) then maxn := n;
      end;
    end;
  until n=0;


  {вывод результатов}
  writeln;
  Write(' Всего чисел: ', count, ', ');
  if isMax then
     write('максимальное: ',maxn, ', ')
  else
     write('максимального нет ( не было чётных чисел), ');

  if isMin then
     write('минимальное: ', minn)
  else
     write('нет минимального (не было нечётных чисел)');
  writeln;

  readln;
end.