Реализовать программу, выполняющую подсчет максимального количества подряд идущих совпадающих элементов в целочисленном массиве длины 50. Программы выполняет вывод максимальной длины цепочки подряд идущих элементов
More Questions From This User See All
Answers & Comments
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<k
then
begin
max:=k;k:=0;
end;
end;
writeln (max);
end.