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

[_-Re@l-_]

1. Осуществить и описать действия логического вычисления;

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

Заметьте, Rust88, Serge_Bliznykov, _-Re@l-_(т.е. я) - все поняли, а вы - нет.О чём это говорит?

[Serge_Bliznykov]

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

да.... как всё запущено..
Опять не работает!
попробуйте на 5 2 3 4 5
неужели такая сложная задача?!

все поняли, а вы - нет.О чём это говорит?

ни о чём это не говорит!!!! Если в теме будет написано "хрюкотали зюзюки" а потом эта же задача - её тоже можно понять и решить! НО!
я полностью согласен с Ol'ga_new!
Данная тема не соответствует условиям задачи.

[_-Re@l-_]

Аналогично, Serge_Bliznykov. Больше мне вам сказать нечего.

[_-Re@l-_]

попробуйте на 5 2 3 4 5

Ну и?Запустил, нормально определяет.
В начале вводится количество чисел, а потом сами числа, Serge_Bliznykov!
То есть, сначала вводим "5"(количество чисел), а затем "5 2 3 4 5". Мой компилятор Borland Pascal 7.0 выдаёт "5 5". Что, собственно, и должно быть.
Ещё раз показываю код:

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.

[ROMA2PVT]

_-Re@l-_ а как насчёт последовательности из пяти чисел:1 2 4 4 5? И вроди несказано сами числа выводить а их индексы.

[_-Re@l-_]

Во-первых, про индексы нет ни слова.
Во-вторых надо выводить числа.
В-третьих, какая разница что выводить?
В-четвёртых, вот полностью рабочий код:

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

[ROMA2PVT]

Во-первых, про индексы нет ни слова.
Во-вторых надо выводить числа.

Найти номера одинаковых элементов и вывести эти
номера в порядке возрастания.

А это Ленин писал очевидно.

[Serge_Bliznykov]

прямо не знаю, публиковать свой вариант, или нет...

ладно. кину... а то, боюсь, автор топика совсем уже потерялся..

NB. код ниже выводит номера одинаковых элементов.
Честно говоря, то, что надо выводить номера, я тоже проглядел...

...
     for i:=1 to n-1 do
       for j:=i+1 to n do
          if X[i] = X[j] then
          begin
            writeln(i:1,' ',j:1);
            break;
          end;
    WriteLn('done. Press Enter...');
    ReadLn;

[_-Re@l-_]

Найти номера одинаковых элементов и вывести эти
номера в порядке возрастания.

Ну так номера, а не индексы

[Serge_Bliznykov]

Сообщение от _-Re@l-_

Ну так номера, а не индексы

Вы, наверное, удивитесь, но индекс — это и есть порядковый номер элемента (в последовательности, массиве, матрице и т.д.)!