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

Question

Реализовать программу, выполняющую подсчет максимального количества подряд идущих совпадающих элементов в целочисленном массиве длины 50. Программы выполняет вывод максимальной длины цепочки подряд идущих элементов

Answer 1

programm z1;

var k,max:integer;

a:array [1..30] of real;

begin

k:=0; {счетчик}

max:=0;

for i:=1 to 29 do

begin

readln (a[i]);

if a[i+1]>a[i]

then

k:=k+1

else

if max

then

begin

max:=k;k:=0;

end;

end;

writeln (max);

end.