Предмет: Информатика,
автор: Revide
Реализовать программу, выполняющую подсчет максимального количества подряд идущих совпадающих элементов в целочисленном массиве длины 50. Программы выполняет вывод максимальной длины цепочки подряд идущих элементов
Ответы
Автор ответа:
0
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.
Похожие вопросы
Предмет: Русский язык,
автор: ooftmia
Предмет: Математика,
автор: datnaz37
Предмет: Английский язык,
автор: keleri
Предмет: Математика,
автор: nicekurilkin
Предмет: Литература,
автор: Sttyughn