Дана целочисленная квадратная матрица порядка n. Найти сумму модулей элементов, расположенных выше главной диа

Дана целочисленная квадратная матрица порядка n. Найти сумму модулей элементов, расположенных выше главной диагонали.
Паскаль........... надо перевод в с++
program lab4_1; {Называние программы}
const n = 5; {Константы}
var x: array [1..n, 1..n] of integer; {Описание массива}
i, j: byte; {Описание переменной}
s: integer; {Описание суммы}
begin {Начало программы}
writeln(' Матрица x(5,5)'); {Вывод сообщения на экран}
writeln; {Пропуск строки}
for i := 1 to n do {Начало цикла}
begin {Операторные скобки}
for j := 1 to n do
begin
x[i, j] := Random(9) + 1; {генератор случайных чисел }
Write(x[i, j]:3); {Форматный вывод}
{Вычисление суммы модулей элементов матрицы х[5,5], расположенных выше главной диагонали}
if i < j then
s := s + x[i, j]
end;
Writeln
end;
{Вывод результата на экран}
Writeln('Сумма элементов выше главной диагонали = ', s);
end.

0