неубывающую последовательность чисел максимальной длины. Не проходит 11 тест (TurboPascal)

[VladKB1]

В наборе чисел найдите непрерывную неубывающую последовательность чисел
максимальной длины. Если подходящих последовательностей несколько, выведите первую из
них. -maxint ≤ a[i] ≤ maxint.

Формат ввода: первая строка: n ≤ 300 000. Вторая строка: элементы набора чисел.
Формат вывода: искомая последовательность.

input.txt
7
5 1 2 3 4 3 7
output.txt
1 2 3 4


Задача не проходит 11 тест (11 тест очень большой не влазит в макс. предел, там n=300000 и потом следует 300000 больших чисел) вот решение:

var
 n,i,l,r,z,x,c: longint;
 a: array [1..32000] of integer;
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.

Большое спасибо всем тем кто поможет!

[BDA]

a: array [1..32000] of integer;

А n может быть 300000.

[VladKB1]

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

a: array [1..32000] of integer;

А n может быть 300000.

нет это я знал, я не знаю как это сделать когда ставишь массив до 300000
то выдаёт ошибку. Буду рад если поможете

[Streletz]

нет это я знал, я не знаю как это сделать когда ставишь массив до 300000
то выдаёт ошибку.

Никак.
К сожалению, в Паскале (судя по всему используется именно он) максимальный размер массива весьма ограничен.
Подробнее можете посмотреть здесь: Turbo Pascal - Максимальная размерность одномерного массива .
Если есть необходимость работы с большими числами, то лучше сменить платформу.

[Stilet]

Слишком большой массив? На то и расчет задачи, чтоб без массивов.

[BDA]

Можно попробовать использовать динамически выделяемую память:

type
  arr = array [1..1] of integer;
var
  p : ^arr;
  n, i : integer;
begin
  read(n);
  getmem(p, n * sizeof(integer));
  for i := 1 to n do read(p^[i]);
  for i := 1 to n do write(p^[i], ' ');
  freemem(p, n * sizeof(integer));
end.

[Poma][a]

На то и расчет задачи, чтоб без массивов.

Ставлю на то, что без массивов задаче не решаема! (ну разумеется, можно поизвращаться и решить задачу рекурсией..)

А массив-то вовсе не большой.. это ограничея турбо.. А сам массив будет занимать (даже при Integer'e = 4 байта) всего один мегабайт с хвостиком..

[VladKB1]

Всем спасибо конечно за идеи, но задачу можно решить массивом уже много кто так сделал с этой задачей. Кто ходил в кружок "быстрого программирования", а у меня не получается вот и хотел спросить...

[Poma][a]

Что с 11 тестом? Неправильный ответ? Слишком много времени\памяти? Какая-то ошибка?

Еще раз.. Поставь размер массива 300000 и отправь.. а сам скачай Free Pascal и радуйся..

[Stilet]

кружок "быстрого программирования"

Какой ужос... А потом такие вот "быстрые программисты" пишут быстрые программы для всяких военных машин, которые хочешь не хочешь а попадать будут куда угодно только не в цель разрушая наши дома...