Question

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

С ОБЪЯСНЕНИЕМ ПОЖАЛУЙСТА!!!

Answer 1

var

 a:array of integer;

 i,j,n:integer;

begin

 write('Введите длину массива: '); readln(n);

 a:=new integer [n];

 for i:=0 to n-1 do

   begin

     readln(a[i]);

     for j:=i-1 downto 0 do

       if a[i]=a[j] then

         begin

           write('№ одинаковых:',j+1,',', i+1);

           exit;

         end;

   end;

end.

Если моё решение вам помогло, отметьте его как лучшее. Спасибо! Удачи!