Регистрация Вход
Информатика Студенческий Yggri
Решено

Задан двумерный массив С из 4-х строк и 4-х столбцов (квадратная матрица). Составить программу подсчёта суммы всех отрицательных элементов и суммы элементов по главной диагонали. Подскажите пожалуйста :3

66
ОТВЕТЫ
// PascalABC.NET 3.3, сборка 1583 от 25.11.2017
// Внимание! Если программа не работает, обновите версию!

begin
  Writeln(*** Исходный массив ***);
  var a:=MatrRandom(4,4,-99,99);
  a.Println(4); Writeln(4*a.ColCount*-);
  var sn:=a.ElementsByRow.Where(t-gt;tlt;0).Sum;
  Writeln(Сумма отрицательных элементов равна ,sn);
  var sd:=0;
  for var i:=0 to a.RowCount-1 do sd+=a[i,i];
  Writeln(Сумма элементов на главной диагонали равна ,sd);
end.

Пример
*** Исходный массив ***
  55 -36  70  19
  79  14   5  -5
  79  -9 -62  20
 -71  69 -34  66
----------------
Сумма отрицательных элементов равна -217
Сумма элементов на главной диагонали равна 73
If(i=j)
{
A[i][j]+=A[i][j]
}
А вообще в инете вбей,cyberforum, найдешь
111
Отв. дан
Для написания вопросов и ответов необходимо зарегистрироваться на сайте