Delphi-Help

  • Increase font size
  • Default font size
  • Decrease font size
Главная Статьи Массивы Задача 240 на Pascal

Задача 240 на Pascal

Оцените материал
(2 голосов)

Задача 240 на 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.

Сам смысл задачи определить сумму элементов выше главной диагонали и сумму элементов ниже неё. Все остальное довольно просто.

Прочитано 10004 раз
Другие материалы в этой категории: « Задача № 239 на Pascal Задача 241 на Pascal »

Авторизация



Счетчики