• Прошу помощи, очень очень надо. Дана квадратная целочисленная матрица N-ного порядка. Найти сумму элементов тех строк матрицы, у которых на главной диагонали расположены отрицательные элементы. Написать программу с использованием подпрограмм ПРОЦЕДУРА и ФУНКЦИЯ.

Ответы 3

  • На самом деле без всех этих процедур и функций программа пишется короче )))
  • Но, видимо, задание рассчитано или на незнаек, или на допотопную версию паскаля
    • Автор:

      diamond
    • 5 лет назад
    • 0
  • // PascalABC.NET 3.2, сборка 1437 от 03.05.2017// Внимание! Если программа не работает, обновите версию!function GetDiagNeganives(a:array[,] of integer):sequence of integer;begin  for var i:=0 to a.RowCount-1 do    if a[i,i]<0 then yield(i)end;function GetSumm(a:array[,] of integer; t:sequence of integer):integer;begin  Result:=0;  foreach var e in t do    Result+=a.Row(e).Sumend;procedure MatrixWrite(a:array[,] of integer);begin  var n:=a.RowCount;  Writeln('*** Исходная матрица [',n,',',n,'] ***');  a.Println(4); Writeln(4*a.ColCount*'-')end;begin  var n:=ReadInteger('Количество строк/столбцов в матрице:');  var a:=MatrRandom(n,n,-99,99);   MatrixWrite(a);  var s:=GetDiagNeganives(a);  Writeln('S=',GetSumm(a,s))end.ПримерКоличество строк/столбцов в матрице: 5*** Исходная матрица [5,5] *** -31  -1 -29 -69 -19 -83  84  52  42  52  13 -24 -70  98 -33  60 -94 -84  19 -14 -55  81 -36  57  98--------------------S=-165
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years