Единомерные массыви Пскаль

[Oksanka2012]

Помогите написать программу.

Определить номера начального и конечного элементов самого длинного фрагмента массива X[1:N], элементы которого расположены в порядку возрастания.

[Ghost of Night]

что вы подразумевали под словом "фрагмент"?

[Pein95]

как я понял промежутка.

[Zer0]

Для затравочки
6 2 3 1 0 -6 1 4 8 9 3 2 1 2
Самый длинный фрагмент - 0 -6 1 4 8 9
Соответственно ответ - 5 и 10

[Serge_Bliznykov]

Zer0, Вы или ошиблись, или пытаетесь кого-то ввести в заблуждение!

Сообщение от Zer0

Самый длинный фрагмент - 0 -6 1 4 8 9

элементы которого расположены в порядку возрастания.

возрастания. а -6 явно меньше нуля...
ну, достаточно нолик в примере заменить на что нибудь, типа -10, как выделенная последовательность стала возрастающей...

[Oksanka2012]

Сообщение от Ghost of Night

что вы подразумевали под словом "фрагмент"?

То есть, если имеем массив:
9 8 7 6 7 8 9 9 1 2 3 2 -1 0 0
То под "упорядоченными за возрастанием фрагментами" я имею в виду
6 7 8 9, 1 2 3 и -1 0.
Из них нужно найти самый длинный фрагмент, определив номер элемента, которым он начинается, и номер элемента, которым он заканчивается.
То есть, 4 и 7.
Правильно понял Zer0

Сообщение от Zer0

Для затравочки
6 2 3 1 0 -6 1 4 8 9 3 2 1 2
Самый длинный фрагмент - 0 -6 1 4 8 9
Соответственно ответ - 5 и 10

Просто сделал ошибку: не 0 -6 1 4 8 9, а -6 1 4 8 9.
И ответ не - 5 и 10, а 6 и 10.

[Oksanka2012]

Честно говоря, сразу же после того, как создала тему, я додумалась и написала программу.
Но мне кажется, что ее можно написать проще.

Вот, посмотрите...

Program sdfm;
const n=15;
var A,C: array[1..n] of real; b,e,i,j,k: integer;
Begin
for i:=1 to n do
begin
____write('A[', i:1, ']=');
____readln(A[i]);
end; writeln;
k:=0;
for i:=1 to n do
begin
____j:=1;
____if A[i]<A[i+1] then
____begin
________C[1]:=A[i];
________while A[i]<A[i+1] do
________begin
____________j:=j+1;
____________C[j]:=A[i+1];
____________i:=i+1;
________end;
________if C[j+1]=0 then
________begin
____________k:=j;
____________b:=i-k+1;
____________e:=i;
________end;
____end;
end;
if b=0 then writeln('Fragment ne naiden') else writeln('b=', b:1, ', e=', e:1);
End.

[Mad_Cat]

const n=15;
var a:array [1..n] of real;
i,im,k,km:integer;
begin
k:=1;
Km:=0;
im:=1;
readln(a[1]);
For i:=2 to n do
begin
readln(a[i]);
if a[i]>a[i-1] then
begin
k:=k+1;
end
else begin
if k>km then begin km:=k;im:=i-k;end;
k:=1;
end;
end;
if k>km then begin km:=k;im:=n-k+1;end;
For i:=1 to n  do
WRite(a[i]:8:3);
writeln;
Writeln('#',im,'#',im+km-1);
end.

Результат

1.000 2.000 3.000 4.000 5.000 6.000 7.000 8.000 9.000 0.000 1.000 2.000 3.000 4.000 5.000
#1#9

1.000 2.000 3.000 4.000 5.000 6.000 7.000 8.000 9.000 10.000 11.000 12.000 13.000 14.000 15.000
#1#15

15.000 14.000 13.000 12.000 11.000 10.000 9.000 8.000 7.000 6.000 5.000 4.000 3.000 2.000 1.000
#1#1

[Ghost of Night]

Можно немного сократить код, но при n=15 это не особо повлияет на скорость.

[Oksanka2012]

Спасибо вам Mad_Cat.
Но ответ правильный, только когда весь массив упорядоченный по возрастанию, а когда в нем есть меншый фрагмент упорядоченных элементов - программа выводит номера на единицу большие чем нужно. А вот когда такого фрагмента вообще нет - ответ 2 и 2.