Delphi-Help

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.