Изучение языка программирования
Турбо Паскаль (Turbo Pascal)

На этом сайте можно: скачать среду программирвания Турбо Паскаль, изучить язык программирования Турбо Паскаль, а так же скачать программы на языке Турбо Паскаль!
Решенные задачи на языке Паскаль



Условие задачи - из "гостевой книги".

В заданной вещественной квадратной матрице n*n определить что больше сумма элементов лежаших выше или ниже главной линии.

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.
Сам смысл задачи определить сумму элементов выше главной диагонали и сумму элементов ниже неё. Все остальное довольно просто.
Скачать исходник