Найти наибольшую сумму элементов массива из сумм выше и ниже главной диагонали.

@Danilochka · Регистрация: 28.03.2011

@Ev[G]eN · 03.02.2012, 16:28

Pascal

{заполнение матрицы, вывод на экран}
//---------------------------------
{определение суммы элементов ниже главной диагонали}  
  for i:=1 to n do
   for j:=1 to m do
    if i > j then inc(sum1, arr[i, j]);
//---------------------------------
{определение суммы элементов выше главной диагонали}
  for i:=1 to n do
   for j:=1 to m do
    if j > i then inc(sum2, arr[i, j]);
//---------------------------------
{сравнение}  
  if sum1 > sum2 then write('...')
   else if sum1 < sum2 then write('...');
    else write('...');
//----------------------------------

@Danilochka 1 / 1 / 0 Регистрация: 28.03.2011 Сообщений: 53
		1
	Найти наибольшую сумму элементов массива из сумм выше и ниже главной диагонали. 03.02.2012, 14:36. Показов 3866. Ответов 1 Метки нет (Все метки) Найти наибольшую сумму элементов массива из сумм выше и ниже главной диагонали. __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

Опции темы

Найти наибольшую сумму элементов массива из сумм выше и ниже главной диагонали.

Решение