-Цитата от Трэй

он по ходу последнее число не считывает
тестовый набор: 1 3 5 2 4 1 3 5 1 1
вывод:4

Код:

const N = 10;
var
  m : array[1..N] of integer;
  i, num, max : integer;
begin
  num:= 0; max:= 0;
  writeln('Введите массив:');
  for i:= 1 to N do
    begin
      readln(m[i]);
      if (odd(m[i]) = false) OR (i = N) then
        begin
          if (i = N) then inc(num);         
          if (num > max) then max:= num;
          num:= 0;
        end
      else
        inc(num); 
     end;

  writeln('Максимальная последовательность: ', max);
  readln;
end.

Можно конечно покрасивее сделать, но нет времени.

Добавлено через 1 час 45 минут 51 секунду

Чего-то перемудрил я. Сейчас исправлю.

Добавлено через 1 час 47 минут 34 секунды

Код:

const N = 10;
var
  m : array[1..N] of integer;
  i, num, max : integer;
begin
  num:= 0; max:= 0;
  writeln('Введите массив:');
  for i:= 1 to N do
    begin
      readln(m[i]);
      if (odd(m[i])) then inc(num);
      if (odd(m[i]) = false) OR (i = N) then
        begin      
          if (num > max) then max:= num;
          num:= 0;
        end;
     end;

  writeln('Максимальная последовательность: ', max);
  readln;
end.