Перевертыши

[Violleta]

Помогите пожайлуста с решением задачи в паскале, никак немогу написать

Создать числовой массив A[1..n]. Найти отрезок массива максимальной длины, в котором первое число равно последнему, второе предпоследнему и т.д. Вывести длину этого отрезка и сам отрезок.

[Zer0]

что то наподобие такого

var a:array[1..100] of integer;
    x,y,z,n,max,n1,n2:integer;o:boolean;
begin
n:=15;
//randomize;
//for x:=1 to n do begin
// a[x]:=random(10);
// write (a[x],' ');
//end;
//writeln;
// этот код всего лишь отвечал за рандомное заполнение массива
max:=0;
n1:=1;
n2:=1;
for x:=1 to n-1 do
 for y:=x+1 to n do begin
   o:=true;
  for z:=0 to (y-x) div 2 do
   o:=o and (a[x+z]=a[y-z]);
  if o and (y-x>max) then begin
   n1:=x;
   n2:=y;
   max:=y-x+1;
  end;
 end;
if max>0 then begin
writeln ('max=',max);
for x:=n1 to n2 do write (a[x],' ');
end else
writeln ('таких последовательностей нет');
end.

[Violleta]

спасибо огромное

[Serge_Bliznykov]

не знаю, прямо, стоит ли портить такую идиллию

но код не всегда работает...

И увидел он, что это не работает...

попробуйте для такого массива:

  n := 10;
  for x := 1 to n do
    a[x] := x;

 a[3] := 1;
 a[n-1] := a[n-4];
 a[n-2] := a[n-3];

1 2 1 4 5 6 7 7 6 10
max=3
1 2 1

p.s. Zer0, кстати, Вы же уже не новичок на форуме. Используйте для оформления кода тэг [CODE]...[/СODE] (кнопка с решёточкой #)

[Zer0]

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

  for z:=0 to (y-x) div 2 do
   o:=o and (a[x+z]=a[y-z]);
  if o and (y-x>max) then begin
   n1:=x;

меняем на

  for z:=1 to (y-x+1) div 2 do
   o:=o and (a[x+z-1]=a[y-z-1]);
  if o and (y-x+1>max) then begin
   n1:=x;