Cho một dãy số nguyên $A_{1}$, $A_{2}$, $A_{3}$, ..., $A_{N}$ (N ≤ $10^{5}$, |A[i]| ≤ $10^{9}$). Hãy in số lớn nhất và số bé nhất cùng chỉ số của chúng, nếu có nhiều số lớn nhất (bé nhất) thì in ra các chỉ số của số. Input: Dòng 1 là số nguyên dương N Dòng 2 là dãy số nguyên $A_{1}$, $A_{2}$, $A_{3}$, ..., $A_{N}$ Output: Dòng 1 là số lớn nhất Dòng 2 là các chỉ số của số lớn nhất Dòng 3 là số bé nhất Dòng 4 là các chỉ số của số bé nhất

Program BTT;
Uses crt;
Var A: array[1..10000] of longint;
    n,i,max,min: longint;
Begin
        Clrscr;
        Write('Nhap n: '); Readln(n);

        For i:=1 to n do
        Begin
                Write('A[',i,'] = ');
                Readln(A[i]);
        End;

        min:=A[1]; max:=A[1];
        For i:=2 to n do
        Begin
                If A[i]>max then max:=A[i];
                If A[i]<min then min:=A[i];
        End; 

        Writeln(max);
        For i:=1 to n do
                If A[i]=max then Write(i,' ');
        Writeln;
        Writeln(min);
        For i:=1 to n do
                If A[i]=min then Write(i,' ');
        Readln
End.