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

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

Решение:

program Minmax27;

var
  N,i,Num,Numi,MaxNum,Maxi:Integer;
  B:byte;
begin
  B:=5;
  Num:=0;
  Numi:=1;
  MaxNum:=0;
  Write('N:');
  Readln(N);
  for i:=1 to N do
   begin
     Write(i,' число:');
     Readln(B);

     if B=1 then 
      begin
       inc(Num);
       Maxi:=Numi;
      end
     else
      begin
       if Num>=MaxNum then MaxNum:=Num;
        Numi:=i+1;
        Num:=0;
      end;
   end;
   if (Num>=MaxNum) and (B=1) then
       begin
        MaxNum:=Num;
        Maxi:=Numi;
       end;

   Writeln(Maxi,' ',MaxNum);
end.

program Minmax27;

var

N,i,Num,Numi,MaxNum,Maxi:Integer;

B:byte;

begin

B:=5;

Num:=0;

Numi:=1;

MaxNum:=0;

Write('N:');

Readln(N);

for i:=1 to N do

begin

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

Readln(B);

if B=1 then

begin

inc(Num);

Maxi:=Numi;

end

else

begin

if Num>=MaxNum then MaxNum:=Num;

Numi:=i+1;

Num:=0;

end;

if (Num>=MaxNum) and (B=1) then

begin

MaxNum:=Num;

Maxi:=Numi;

end;

Writeln(Maxi,' ',MaxNum);

end.

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

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

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

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

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