Решаем задачи Абрамян на Паскале. Minmax26

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

Решение:

program Minmax26;
var
  N,i,Ni,Num,MaxNum:Integer;

begin
  Num:=0;
  MaxNum:=0;
  Write('N:');
  Readln(N);
  for i:=1 to N do
   begin
     Write(i,' число:');
     Readln(Ni);

     if (Ni mod 2) = 0 then inc(Num)
     else
      begin
       if Num>MaxNum then MaxNum:=Num;
       Num:=0;
      end;

    end;
   if Num>MaxNum then MaxNum:=Num;
   Writeln(MaxNum);
end.

program Minmax26;

var

N,i,Ni,Num,MaxNum:Integer;

begin

Num:=0;

MaxNum:=0;

Write('N:');

Readln(N);

for i:=1 to N do

begin

Write(i,' число:');

Readln(Ni);

if (Ni mod 2) = 0 then inc(Num)

else

begin

if Num>MaxNum then MaxNum:=Num;

Num:=0;

end;

if Num>MaxNum then MaxNum:=Num;

Writeln(MaxNum);

end.

Другие задачи из раздела Minmax можно посмотреть здесь.

Решаем задачи Абрамян на Паскале. Minmax26

Комментарии:

Добавить комментарий Отменить ответ