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.