Паскаль: задача на массивы

[Liam_]

Вот такая задачка : дано целое число N и набор из N целых чисел. Найти максимальное количество четных чисел в наборе, идущих подряд. Если четные числа в наборе отсутствуют, то вывести 0.

Имеется набросок... дальше не идёт(

program lab1;
var
  N, q, k1, k2, i: Integer;
  A: array [1..20] of integer;
begin
  WriteLn('vvedite chislo elementov');
  ReadLn(N);
  WriteLn;
  WriteLn('vvedite elements');
  for i := 1 to N do
    Read(A[i]);
  k1 := 0;
  k2 := 0;
  for i := 1 to N   do
    if (A[i] mod 2 = 0) and (A[i + 1] mod 2 = 0) then
      k1:=k1+1;
    else ...

[Stilet]

С потолка:

... begin if k1>k2 then k2:=k1; k1:=0;end;
write(k2);readln;
end.

[andrewpalkin]

Можно весь код программы .

Уже не надо код , тебе ответили

[Liam_]

Так-с, сейчас добавлю концовку, посмотрю)

[Liam_]

Мммм. ввожу эл-ты 12212221 - выдаёт "2", хотя должен "3"

[Serge_Bliznykov]

а так?

(*
Вот такая задачка : дано целое число N и набор из N целых чисел. 
Найти максимальное количество четных чисел в наборе, идущих подряд. 
Если четные числа в наборе отсутствуют, то вывести 0.
*)
program lab1;
var
  N, i: Integer;
  A: array [1..20] of integer;
  max, k : integer;
begin
  WriteLn('vvedite chislo elementov');
  ReadLn(N);
  WriteLn;
  WriteLn('vvedite elements');
  for i := 1 to N do
    Read(A[i]);
  Readln;

  {собственно поиск самой длинной последовательности}
  max := 0;
  k := 0;
  for i := 1 to n do begin
    if not odd(a[i]) then inc(k)
    else
      begin
       if (k > max) then max := k;
       k := 0;
     end;
  end;

  {а это проверка, если самая длинная
      последовательность завершает строку}
  if (k > max) then max := k;

  WriteLn('Максимальное число чётных чисел подряд: ',max);
  readln;
end.

[Liam_]

Вот теперь да, большое спасибо за помощь