Программа на основе математической задачи.

[Ekvental]

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

[Niro]

Цена вопроса?

[Ekvental]

Сколько возьмёшь))) Я конечно рассчитывал на понятийную помощь, но если уж надо...

[Stilet]

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

Если не опшибаюсь:

const n=4;
var m:array[1..n,1..n] of integer;
 i,j:integer;
 sum:array[1..4] of integer;
begin
 for i:=1 to n do   for j:=1 to n do   m[i,j]:=random(100);
 for i:=1 to n do begin
  for j:=1 to n do begin
  write(m[i,j]:5);
   {Сумма верхнего}
   if (j>=i)and(j<=(n-i+1))and(i<=(n div 2)) then
      sum[1]:=sum[1]+m[i,j];
   {Сумма нижнего}
   if (j>=i)and(j<=(n-i+1))and(i<=(n div 2)) then
     sum[2]:=sum[2]+m[n-i+1,j];

   {Сумма Правого}
   if (j>=i)and(j<=(n-i+1))and(i<=(n div 2)) then
     sum[3]:=sum[3]+m[n,n-j+1];

   {Сумма Левого}
   if (j>=i)and(j<=(n-i+1))and(i<=(n div 2)) then
     sum[4]:=sum[4]+m[n-i+1,n-j+1];

  end;writeln;
 end;       writeln;
  { TODO -oUser -cConsole Main : Insert code here }
  write(sum[1]:10,sum[2]:10,sum[3]:10,sum[4]:10);
 readln;
end.

[Ekvental]

Огромное спасибо вам Стилет!!! Но как скомпилировать прогу целиком, учитывая последнее условие- "Если первая сумма больше второй, то "перевернуть" матрицу на 90 градусов. Иначе- обнулить диагональные элементы."?

[Stilet]

А вот это твое домашнее задание: http://yandex.ua/yandsearch?text=%D0...ammersforum.ru

[Ekvental]

И вправду) Значит подобные вопросы уже поднимались- я новичок просто тут) Спасибки, дальше постараюсь сам))

[Stilet]

Спасибки, дальше постараюсь сам))

Всех благ в решении )