В квадратной матрице K(n,n) подсчитать сумму значений элементов верхнего и нижнего треугольника

Категория: Delphi/Pascal

2011-12-18 16:07:57

В квадратной матрице K(n,n) подсчитать сумму значений элементов верхнего и нижнего треугольника и, отдельно, левого и правого треугольника. Если первая сумма больше второй, то перевернуть матрицу на 90 градусов. Иначе обнулить элементы по диагонали.

code: #pascal

uses crt;
const n=5;
var l,k:array[1..n,1..n] of integer;
s1,s2,i,j:integer;
begin
 clrscr;
 for i:=1 to n do begin
  for j:=1 to n do begin
   k[i,j]:=random(100);
   if i>j then s1:=s1+k[i,j];
   if i<j then s2:=s2+k[i,j];
   write(k[i,j]:3);
  end;
 writeln;
end;
 
 for i:=1 to n do begin
  if s1>s2 then l[i,i]:=0;
  for j:=1 to n do begin
   if s1<s2 then l[j,i]:=k[i,j] else if i=j then l[i,j]=0 else l[i,j]:=k[i,j];
  end;
 end;
 
 for i:=1 to n do begin
  for j:=1 to n do begin
   write(l[i,j]:3);
  end;
  writeln;
 end;
 readkey;
end.

автор: Abbatik

Поделиться:

Sample Code

категории

В квадратной матрице K(n,n) подсчитать сумму значений элементов верхнего и нижнего треугольника

Похожие статьи: