Определить наиболее отдаленные элементы массива

Категория: Delphi/Pascal
2011-10-02 21:16:21

В линейном массиве каждый элемент встречается дважды. Какие два равных элемента наиболее удалены друг от друга?

code: #pascal
m:=0;
for i:=1 to n do
for j:=i to n do
 if a[i]=a[j] then
  if abs(i-j)>m then
  begin
   m:=abs(i-j);
   t:=i;
   k:=j;
  end;
writeln('Element = ',a[t]);
writeln('Index = ',t,' and ',k);

автор: Plague

Поделиться:

Похожие статьи:

теги: массив, одномерный массив, студенты