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