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

Question

Задача: Дана последовательность натуральных чисел, завершающаяся числом 0. Определите, какое наибольшее число подряд идущих элементов этой последовательности равны друг другу (подсчитать одинаковые числа). Вводимые числа: 1,7,7,9,1,0. В ответе должно быть число: 2 (писать на паскале)

Answer 1

program skoka_odinakovih;

var x,y,k,k1:integer;

begin

writeln('Введите числа. Конец ввода 0 》');

read(y);

k:=1;

k1:=1;

repeat

read(x);

if x=y then

inc(k)

else

begin

y:=x;

if(k>k1) then

k1:=k;

k:=1

end

until x=0;

write(k1)

end.

---