Группа в одномерном массиве

[BaronVik]

Создать одномерный массив А длинной n.
Ввести числа с клавиатуры и переписать в начало массива группу,содержащую наибольшее число подряд идущих положительных чисел,т.е. например:

1 2 -4 1 -5 9 -3 2 5 -10 96 -2 1 6 8 5 6 -3 -4 -6 -7 -3 -2 -4 -6 -5 -3 8
наибольшая группа положительных элементов в этом массиве 1 6 8 5 6,получаем
1 6 8 5 6 1 2 -4 1 -5 9 -3 2 5 -10 96 -2 -3 -4 -6 -7 -3 -2 -4 -6 -5 -3 8

Всем заранее спасибо за оказанную помощь

[Stilet]

Покажи как вводишь массив.

[BaronVik]

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

Покажи как вводишь массив.

uses crt;
const n=10;
var i:integer;
a: array[1..n] of integer;
Begin
write('Vvedite zna4enie massiva: ');
for i:=1 to n do
read(a[i]);
end.

Я сделал так,но хотел чтобы n задавалась человеком.Не получается так сделать,пишет ошибку

[DRAgon™]

uses crt;
uses crt;
const n=1000;
var i:integer;
a: array[1..n] of integer;
var n1:integer;
Begin
writeln('Vvedite zna4enie massiva: ');
readln(n1);
writeln('Vvedite V massiv: ');
for i:=1 to n1 do
readln(a[i]);
end.

Я сделал так,но хотел чтобы n задавалась человеком.Не получается так сделать,пишет ошибку[/QUOTE]

[Serge_Bliznykov]

BaronVik
а скажите, какую помощь Вы ожидаете?
Полностью готовый код? Или описание алгоритма?
И ещё, Ваша задача чётко делится на несколько частей:
ввод данных
поиск самой длинной последовательности
перенос последовательности в начало
вывод полученного массива

Какая из частей Вам неясна?

p.s. для затравки вот пример кода, который находит самую длинную последовательность в массиве:

uses CRT;
const n = 100;
var
  i, n1, max, k, max_index : integer;

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

begin
  Randomize;
  n1 := 10;
  for i :=1 to n1 do a[i] := Random(15)-5;


  {вывести массив на экран}
  WriteLn;
  for i :=1 to n1 do Write(a[i]:1,' ');
  WriteLn;


  {собственно поиск самой длинной последовательности}
  max := 0;
  k := 0;
  for i := 1 to n1 do begin
    if a[i] >= 0 then inc(k)
    else
      begin
       if (k > max) then
         begin
           max := k;
           max_index := i - k;
         end;
       k := 0;
     end;
  end;

  {а это проверка, если самая длинная
      последовательность завершает строку}
  if (k > max) then begin 
     max := k;
     max_index := n1 - k + 1;
  end;

  if max=0 then WriteLn('Ничего найти ва-аа-аще не удалось!')
  else 
     WriteLn('Самая длинная последовательность длиной ',max:1,
                ' начинается с позиции ', max_index:1);

  Readln;

end.

[BaronVik]

Мне нужен был алгоритм поиска самой длинной последовательности. Спс за помощь