uses crt;
const
n=6; { размер матрицы }
var
a:array[1..n,1..n]of real; { сама матрица }
i,j:integer; { для цикла }
s1,s2:real; { сумма элементов }
BEGIN
randomize;
{ загружаем матрицу вещественными числами }
for i:=1 to n do
for j:=1 to n do a[i,j]:=random(9)+random;
{-----------------------}
s1:=0;
for i:=1 to n do
for j:=1 to n do { сумма элементов }
if j>i then s1:=s1+a[i,j]; { выше главной диагонали }
s2:=0;
for i:=1 to n do { сумма элементов }
for j:=1 to n do { ниже главной диагонали }
if j<i then s2:=s2+a[i,j];
{-----------------------}
{ вывести на экран матрицу }
for i:=1 to n do
begin
for j:=1 to n do
begin
if i=j then textcolor(14) else textcolor(7);{выделить цветом диагональ}
write(' ',a[i,j]:1:1);
end;
writeln;
end;
writeln;
writeln(' Сумма элементов выше главной диагонали = ',s1:3:1);
writeln(' Сумма элементов ниже главной диагонали = ',s2:3:1);
writeln;
writeln(' Что больше? Решайте сами ',#1);
readln;
END.