uses crt;
var i,n,max:longint; a:array[1..1000000]of longint;
begin 
clrscr;
   max:=0;
   write('Nhap n: ');readln(n);
   for i:=1 to n do 
      begin 
         write('A[',i,']= ');readln(a[i]);  
         if abs(a[i])>max then max:=abs(a[i]);
      end; 
   write('Vi tri cua nhung so co gia tri tuyet doi lon nhat: '); 
   for i:=1 to n do 
      if abs(a[i])=max then write(i,' ');
readln
end.

#include <iostream>
using namespace std;

int main()
{
    int n, i, Max;
    cin >> n;
    int A[n];
    
    Max = 0;
    for (i = 0; i < n; i++) {
        cin >> A[i];
        if (abs(A[i]) > Max) Max = abs(A[i]);
    }
    
    for (i = 0; i < n; i++) {
        if (abs(A[i]) == Max) cout << i + 1 << " ";
    }
    
    return 0;
}