Непрерывная неубывающая последовательность чисел (TurboPascal)

[SlavaSSU]

я же ответил!!! напиши вместо && and!

[VladKB1]

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

я же ответил!!! напиши вместо && and!

Ошибка была не в этом я просто не внимательный я изменил то сообщение посмотрите его я выполнил алгоритм но у меня индексы не правильные ((

[SlavaSSU]

1)ты не обновляешь ответ. после if (r - l + 1 > z) then begin
допиши
z := r - l + 1;

2) ответ у тебя - это x и c, а не x и r.

[VladKB1]

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

1)ты не обновляешь ответ. после if (r - l + 1 > z) then begin
допиши
z := r - l + 1;

2) ответ у тебя - это x и c, а не x и r.

Извините за невнимательность только что сам обнаружил хотел написать, но вы опередили меня.
Большое спасибо вам!

Вот решение:

var
 n,i,l,r,z,x,c: longint;
 a: array [1..1000] of longint;
begin
 assign(input,'input.txt');
 reset(input);
 assign(output,'output.txt');
 rewrite(output);

 read(n);
 for i:=1 to n do read(a[i]);

 l:=1;
 r:=1;
 while (l <= n) do
 begin
  r:=l;
  while (r+1 <= n) and (a[r+1] >= a[r]) do inc(r);
  if (r-l+1 > z) then
  begin
   z:=r-l+1;
   x:=l;
   c:=r;
  end;
  l:=r+1;
 end;
  for i:=x to c-1 do write(a[i],'');
 writeln(a[c]);
end.

[SlavaSSU]

и кстати массив а[] должен быть размером 300000!!!
и еще на всякий случай инициализируй ответ нулем. прям до чтения массива напиши z := 0;

[VladKB1]

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

и кстати массив а[] должен быть размером 300000!!!
и еще на всякий случай инициализируй ответ нулем. прям до чтения массива напиши z := 0;

эм Error 29: Ordinal type expected.'' Вещественные, строковые или структурные типы здесь не позволяются.''

Зачем z:=0 ? в TurboPascal вначале всем переменным присваивается 0.

[SlavaSSU]

значит у тебя паскаль какой-то не такой! я помню тоже был у меня паскаль, который не позволял объявлять большие массивы.
ну если что можно сказать, что это delphi код!

[VladKB1]

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

значит у тебя паскаль какой-то не такой! я помню тоже был у меня паскаль, который не позволял объявлять большие массивы.
ну если что можно сказать, что это delphi код!

Ладно разберусь. Большое вам спасибо за помощь!