Определить наибольшее количество элементов в возрастающей серии - Pascal
Формулировка задачи:
Дана числовая последовательность целых чисел, содержащая N элементов. Определить: наибольшее количество элементов в возрастающей серии элементов;
Решение задачи: «Определить наибольшее количество элементов в возрастающей серии»
textual
Листинг программы
const nmax=20;
var n,a,b,i,k,mx:byte;
begin
repeat
write('Ввелите количество чисел n>1 n=');
readln(n);
until n>1;
writeln('Введите ',n,' целых чисел, в том числе возрастающие участки:');
readln(a);
mx:=0;
k:=1;
for i:=2 to n do
begin
readln(b);
if b>a then inc(k);
if(b<=a)or(i=n) then
begin
if k>mx then mx:=k;
k:=1;
end;
a:=b;
end;
writeln('Длина максимальной последовательности возрастающих чисел=',mx);
end.