uses:crt;
var
n,lngth,max:longint;
ending,begining,maxe,maxb:integer;
A:array[1..10000] of integer;
begin
clrscr;
{Здесь идет определение массива и его длина}
lngth:=1;
max:=n;
for i:=2 to n do begin
if(A[i]>A[i-1]) then inc(lngth)
else begin
ending:=i-1;
if(max<lngth) then begin
max:=lngth;
maxb:=begining;
maxe:=ending;
end;
lngth:=1;
begining:=i;
end;
end;
writeln('Максимальная длина отрезка роста: ',max);
writeln('Начало на элементе: ',maxb,' Конец на элементе: ',maxe);
readln;
end;
That's all folks
Добавлено спустя 2 минуты 16 секунд:Злой phpbb порезал все лишние пробелы

(( А код был таким красивым

(