Два максимальных элемента массива

[Liper]

Дан целочисленный массив размера N, содержащий ровно два оди-
наковых элемента. Найти номера одинаковых элементов и вывести эти
номера в порядке возрастания.

[Stranger333]

Напишите правельнее условие. Здесь не понятно 2 максиммальных числа и ли 2 любые числа?

[RUSt88]

как так непонятно, все предельно ясно

могу выполнить за вознаграждение

[_-Re@l-_]

блин... сложная задачка....

var a,b:integer;
     X:array[1..10] of integer;
     n,i,j:integer;
begin
      readln(n);
      for i:=1 to n do
      readln(X[i]);
      a:=X[1];
      for j:=1 to n do
      begin
      for i:=2 to n do
      begin
      if X[i] = a then begin b:=X[i];
      write(a,b);
      readln;exit;end;
      end;
      a:=X[j];
      end;
      readln;
end.

Проверил - работает как надо.

[Serge_Bliznykov]

Проверил - работает как надо.

не-а.. не всегда!
проверьте, например, для массива: 1 2 3 4 5 6 7 8 9 9
(получаю его так (чтобы не набирать ручками:

      n := 10;;
      for i:=1 to n do
         X[i] := i;
      {Делаем одинаковыми 1 и N элементы}
      X[n] := X[n-1];

      {напечатаем исходный массив}
      For  i:=1 to N do Write(X[i]:1,' ');
      WriteLn;

[_-Re@l-_]

Простите, случайно не то решение кинул, недоработанное.
Вот нормальный код:

var a,i,n:integer;
     X:array[1..10] of integer;
begin
       readln(n);
       for i:=1 to n do
       readln(X[i]);
       a:=X[1];
       for i:=2 to n do
       begin
              if X[i] = a then
               begin
               write(a,' ',X[i]);
               readln;
               exit;
               end;
            a:=X[i];
           end;
       readln;
end.

Тут даже ваш пример нормально работает

[Ol'ga_new]

А почему в теме максимальные элементы? Вдруг массив: 1 3 6 4 6 1 2 5, если нет, то будьте внимательны при названии темы не вводите людей в заблуждение!!!

[_-Re@l-_]

не вводите людей в заблуждение!!!

Никто почему-то не "заблуждился". Поаккуратней с выбором выражений, Ol'ga_new

[Ol'ga_new]

А как же Stranger333?

[Stranger333]

Тема ж называется 2 максимальных числа, но в самом же условии не сказано про эти максимальные числа. Тому я согласен с Ol'ga_new