[Asira]

Даны два целочисленных массива. Можно ли в первом из них выбрать N подряд идущих элементов, чтобы они шли подряд в той же последовательности во втором? Вывести эту последовательность. Создавать дополнительный массив, множество или другую структуру нельзя. Мой вариант. но он работает не правильно... точнее я не знаю как сделать чтобы выводилась последовательность именно из n элементов
a:0001001010
b: 1101000000 Вывод- совпадение - 0100 совпадение 0 совпадение 000 не выводит случаи - совпадение 01 совпадение 100 совпадение 010 Подскажите где искать ошибку?!

Код:

{$APPTYPE CONSOLE}

uses
  SysUtils;
procedure vvod(var a:array of byte;n:byte);
  var i:byte;
  begin
  for i:=0 to high(a) do a[i]:=random(5);
  end;
procedure vivod(a:array of byte);
  var i:byte;
  begin
  for i:=0 to high(a) do write(a[i],' ');
  writeln;
  end;
procedure Mogno(a,b:array of byte;n:byte);
  var i:byte;
  begin
  i:=0;
  while i<>n do
  begin
  if (a[i]=b[i]) and (a[i+1]=b[i+1]) then
  begin
  writeln('sovpadenie:');
  while a[i]=b[i] do
  begin
  write(a[i],' ');
  inc(i);
  end;
  writeln;
  end
  else
  inc(i);
  end;
end;
var a,b:array of byte;
     n:byte;
begin
  write('n= '); readln(n);
  setlength(a,n);
  setlength(b,n);
  randomize;
  vvod(a,n);
  vivod(a);
  vvod(b,n);
  vivod(b);
  Mogno(a,b,n);
  readln; end.

[lmikle]

В алгоритме.
Нарисуй алгоритм на бумаге.

На самом деле у тебя будет фактически 3 вложенных цикла. Внешний перебирает N от длинны до 1. Второй - берет образец длинны n по первому массиву и третьий - ищет вхождение образца во второй массив.

а теперь ручку в зубы и рисуй как оно должно работать. и только потом напишешь код.