using System;
using System.Collections.Generic;
using System.Linq;
class Program
{
static string InputPattern = "InputX";
static List<string> GetInputList()
{
var WillReturn = new List<string>();
if (InputPattern == "Input1") {
WillReturn.Add("3");
WillReturn.Add("5 7 5");
//5
//499122183
//443664163
}
else if (InputPattern == "Input2") {
WillReturn.Add("7");
WillReturn.Add("22 75 26 45 72 81 47");
//22
//249561150
//110916092
//873463862
//279508479
//360477194
//529680742
}
else {
string wkStr;
while ((wkStr = Console.ReadLine()) != null) WillReturn.Add(wkStr);
}
return WillReturn;
}
const long Hou = 998244353;
static void Main()
{
List<string> InputList = GetInputList();
long[] AArr = InputList[1].Split(' ').Select(pX => long.Parse(pX)).ToArray();
var Ins_AVL_Set_MultiSet = new AVL_Set_MultiSet<long>();
Ins_AVL_Set_MultiSet.IsMultiSet = true;
long UB_Fenwick_Tree = AArr.Max();
var Ins_Fenwick_Tree = new Fenwick_Tree(UB_Fenwick_Tree + 1, Hou);
long Cnt = 0;
long SumVal = 0;
foreach (long EachA in AArr) {
Cnt++;
Ins_AVL_Set_MultiSet.Add(EachA);
int LowerCnt = Ins_AVL_Set_MultiSet.LowerOrEqual_Max(EachA) + 1;
long LeftCnt = LowerCnt + (LowerCnt - 1);
long LeftSum = LeftCnt * EachA;
long RightSum = 2 * Ins_Fenwick_Tree.GetSum(EachA + 1, UB_Fenwick_Tree, true);
Ins_Fenwick_Tree.Add(EachA, EachA, true);
long Div = DeriveBekijyou(Cnt, 2, Hou);
long Gyakugen = DeriveGyakugen(Div);
SumVal += LeftSum + RightSum;
SumVal %= Hou;
long Answer = SumVal * Gyakugen;
Answer %= Hou;
Console.WriteLine(Answer);
}
}
// 引数の逆元を求める
static long DeriveGyakugen(long pLong)
{
return DeriveBekijyou(pLong, Hou - 2, Hou);
}
// 繰り返し2乗法で、(NのP乗) Mod Mを求める
static long DeriveBekijyou(long pN, long pP, long pM)
{
long CurrJyousuu = pN % pM;
long CurrShisuu = 1;
long WillReturn = 1;
while (true) {
// 対象ビットが立っている場合
if ((pP & CurrShisuu) > 0) {
WillReturn = (WillReturn * CurrJyousuu) % pM;
}
CurrShisuu *= 2;
if (CurrShisuu > pP) return WillReturn;
CurrJyousuu = (CurrJyousuu * CurrJyousuu) % pM;
}
}
}
#region AVL_Set_MultiSet
/// <summary>
/// 要素の追加、削除、検索、取得が可能な集合を表します.
/// </summary>
/// <typeparam name="T">優先度付きキュー内の要素の型を指定します.</typeparam>
/// <remarks>内部的にはAVL木によって実装されています.</remarks>
internal class AVL_Set_MultiSet<T>
{
Node root;
readonly IComparer<T> comparer;
readonly Node nil;
/// <summary>
/// 多重集合かどうかを表します.
/// </summary>
internal bool IsMultiSet { get; set; }
internal AVL_Set_MultiSet(IComparer<T> comparer)
{
nil = new Node(default(T));
root = nil;
this.comparer = comparer;
}
internal AVL_Set_MultiSet() : this(Comparer<T>.Default) { }
/// <summary>
/// 要素をコレクションに追加します.
/// </summary>
/// <remarks>この操作は計算量 O(log N) で実行されます.</remarks>
internal bool Add(T v)
{
return insert(ref root, v);
}
/// <summary>
/// v が存在するならコレクションから削除します.
/// </summary>
/// <remarks>この操作は計算量 O(log N) で実行されます.</remarks>
internal bool Remove(T v)
{
return remove(ref root, v);
}
/// <summary>
/// 0-indexed で index 番目の要素をコレクションから取得します.
/// </summary>
/// <remarks>この操作は計算量 O(log N) で実行されます.</remarks>
internal T this[int index] { get { return find(root, index); } }
internal int Count { get { return root.Count; } }
internal void RemoveAt(int k)
{
if (k < 0 || k >= root.Count) throw new ArgumentOutOfRangeException();
removeAt(ref root, k);
}
/// <summary>
/// このコレクションに含まれる要素を昇順に並べて返します.
/// </summary>
/// <remarks>この操作は計算量 O(N) で実行されます.</remarks>
internal T[] Items
{
get
{
T[] ret = new T[root.Count];
int k = 0;
walk(root, ret, ref k);
return ret;
}
}
private void walk(Node t, T[] a, ref int k)
{
if (t.Count == 0) return;
walk(t.lst, a, ref k);
a[k++] = t.Key;
walk(t.rst, a, ref k);
}
private bool insert(ref Node t, T key)
{
if (t.Count == 0) { t = new Node(key); t.lst = t.rst = nil; t.Update(); return true; }
int cmp = comparer.Compare(t.Key, key);
bool res;
if (cmp > 0)
res = insert(ref t.lst, key);
else if (cmp == 0) {
if (IsMultiSet) res = insert(ref t.lst, key);
else return false;
}
else res = insert(ref t.rst, key);
balance(ref t);
return res;
}
private bool remove(ref Node t, T key)
{
if (t.Count == 0) return false;
int cmp = comparer.Compare(key, t.Key);
bool ret;
if (cmp < 0) ret = remove(ref t.lst, key);
else if (cmp > 0) ret = remove(ref t.rst, key);
else {
ret = true;
var k = t.lst.Count;
if (k == 0) { t = t.rst; return true; }
if (t.rst.Count == 0) { t = t.lst; return true; }
t.Key = find(t.lst, k - 1);
removeAt(ref t.lst, k - 1);
}
balance(ref t);
return ret;
}
private void removeAt(ref Node t, int k)
{
int cnt = t.lst.Count;
if (cnt < k) removeAt(ref t.rst, k - cnt - 1);
else if (cnt > k) removeAt(ref t.lst, k);
else {
if (cnt == 0) { t = t.rst; return; }
if (t.rst.Count == 0) { t = t.lst; return; }
t.Key = find(t.lst, k - 1);
removeAt(ref t.lst, k - 1);
}
balance(ref t);
}
private void balance(ref Node t)
{
int balance = t.lst.Height - t.rst.Height;
if (balance == -2) {
if (t.rst.lst.Height - t.rst.rst.Height > 0) { rotR(ref t.rst); }
rotL(ref t);
}
else if (balance == 2) {
if (t.lst.lst.Height - t.lst.rst.Height < 0) rotL(ref t.lst);
rotR(ref t);
}
else t.Update();
}
private T find(Node t, int k)
{
if (k < 0 || k > root.Count) throw new ArgumentOutOfRangeException();
while (true) {
if (k == t.lst.Count) return t.Key;
else if (k < t.lst.Count) t = t.lst;
else { k -= t.lst.Count + 1; t = t.rst; }
}
}
/// <summary>
/// コレクションに含まれる要素であって、 v 以上の最小の要素の番号を返します。
/// </summary>
/// <remarks>この操作は計算量 O(log N) で実行されます.</remarks>
internal int LowerBound(T v)
{
// 追加機能 件数が0なら-1を返す
if (this.Count == 0) {
return -1;
}
// 追加機能 v 以上な要素が無い場合は-1を返す
T MaxVal = this[this.Count - 1];
int cmp = comparer.Compare(MaxVal, v);
if (cmp == -1) return -1;
int k = 0;
Node t = root;
while (true) {
if (t.Count == 0) return k;
if (comparer.Compare(v, t.Key) <= 0) t = t.lst;
else { k += t.lst.Count + 1; t = t.rst; }
}
}
/// <summary>
/// コレクションに含まれる要素であって、 v より真に大きい、最小の要素の番号を返します。
/// </summary>
/// <remarks>この操作は計算量 O(log N) で実行されます.</remarks>
internal int UpperBound(T v)
{
// 追加機能 件数が0なら-1を返す
if (this.Count == 0) {
return -1;
}
// 追加機能 v 超えな要素が無い場合は-1を返す
T MaxVal = this[this.Count - 1];
int cmp = comparer.Compare(MaxVal, v);
if (cmp <= 0) return -1;
int k = 0;
Node t = root;
while (true) {
if (t.Count == 0) return k;
if (comparer.Compare(t.Key, v) <= 0) { k += t.lst.Count + 1; t = t.rst; }
else t = t.lst;
}
}
// 追加機能 V未満で最大の要素の番号を返す
internal int Lower_Max(T v)
{
// 件数が0なら-1を返す
if (this.Count == 0) {
return -1;
}
// v 未満な要素が無い場合は-1を返す
T MinVal = this[0];
int cmp = comparer.Compare(MinVal, v);
if (cmp >= 0) return -1;
// v 以上の件数を調べる
int More_Or_Equal_cnt = this.Count;
int UB = this.Count - 1;
int LowerB = LowerBound(v);
if (IsValidInd(LowerB)) {
More_Or_Equal_cnt -= (UB - LowerB + 1);
}
return More_Or_Equal_cnt - 1;
}
// 追加機能 V以下で最大の要素の番号を返す
internal int LowerOrEqual_Max(T v)
{
// 件数が0なら-1を返す
if (this.Count == 0) {
return -1;
}
// v 以下な要素が無い場合は-1を返す
T MinVal = this[0];
int cmp = comparer.Compare(MinVal, v);
if (cmp > 0) return -1;
// v 超えの件数を調べる
int More_cnt = this.Count;
int UB = this.Count - 1;
int UpperB = UpperBound(v);
if (IsValidInd(UpperB)) {
More_cnt -= (UB - UpperB + 1);
}
return More_cnt - 1;
}
// 追加機能 LowerBoundなどで返したIndが、有効範囲かを判定
internal bool IsValidInd(int pInd)
{
if (pInd < 0) return false;
if (this.Count <= pInd) return false;
return true;
}
private void rotR(ref Node t)
{
Node l = t.lst;
t.lst = l.rst;
l.rst = t;
t.Update();
l.Update();
t = l;
}
private void rotL(ref Node t)
{
Node r = t.rst;
t.rst = r.lst;
r.lst = t;
t.Update();
r.Update();
t = r;
}
class Node
{
internal Node(T key)
{
Key = key;
}
internal int Count { get; private set; }
internal int Height { get; private set; }
internal T Key { get; set; }
internal Node lst, rst;
internal void Update()
{
Count = 1 + lst.Count + rst.Count;
Height = 1 + Math.Max(lst.Height, rst.Height);
}
public override string ToString()
{
return string.Format("Count = {0}, Key = {1}", Count, Key);
}
}
}
#endregion
#region Fenwick_Tree
// フェニック木
internal class Fenwick_Tree
{
private long[] mBitArr;
private long mN;
private long mHou;
// コンストラクタ
internal Fenwick_Tree(long pItemCnt, long pHou)
{
mN = pItemCnt;
mBitArr = new long[pItemCnt + 1];
mHou = pHou;
}
// [pSta,pEnd] のSumを返す
internal long GetSum(long pSta, long pEnd, bool pIsZeroOrigin)
{
long Result = GetSum(pEnd, pIsZeroOrigin) - GetSum(pSta - 1, pIsZeroOrigin);
Result %= mHou;
return Result;
}
// [0,pEnd] のSumを返す
internal long GetSum(long pEnd, bool pIsZeroOrigin)
{
if (pIsZeroOrigin) {
pEnd++; // 1オリジンに変更
}
long Sum = 0;
while (pEnd >= 1) {
Sum += mBitArr[pEnd];
Sum %= mHou;
pEnd -= pEnd & -pEnd;
}
return Sum;
}
// [I] に Xを加算
internal void Add(long pI, long pX, bool pIsZeroOrigin)
{
if (pIsZeroOrigin) {
pI++; // 1オリジンに変更
}
while (pI <= mN) {
mBitArr[pI] += pX;
mBitArr[pI] %= mHou;
pI += pI & -pI;
}
}
}
#endregion