• помогите написать программу на PascalABCNET

    ВХОДНЫЕ ДАННЫЕ

    Дана последовательность натуральных чисел, завершающаяся нулем. 

    ВЫХОДНЫЕ ДАННЫЕ

    Определите, какое наибольшее количество подряд идущих элементов этой последовательности равны друг другу.Числа, идущие после нуля, считывать не нужно.

    question img

Ответы 1

  • var  n,npred,maxs,nseq:integer;begin  Writeln('Вводите натуральные числа, 0 - конец ввода');  maxs:=0; npred:=-32768; nseq:=1;  repeat    Read(n);    if n<>0 then begin      if n=npred then Inc(nseq)      else begin nseq:=1; npred:=n end;      if maxs<nseq then maxs:=nseq        end  until n=0;  Writeln('Наибольшая длина последовательности равна ',maxs)end.Тестовое решение:Вводите натуральные числа, 0 - конец ввода1550Наибольшая длина последовательности равна 2
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years