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.
