Có 2 trường hợp
Trường hợp 1: i,j,k được phép trùng.
Tìm a[i] max trong dãy số.
Max:=a[1];
For i:=2 to n do
If (a[i] > Max) then
Begin
Max:= a[i];
VitriI:= i;
End;
Khi đó f(i,j,k) = 6*Max.
Trường hợp 2: i, j,k không được phép trùng
sumMax:= a[1] +a[2]+a[3];
For i:=2 to n...