• Дана матрица А[1:4; 1:4]
    а) получить сумму и количество четных элементов в интервале
    [-10 +5].
    б) сформировать вектор из сумм элементов матрицы по столбцам
    в) получить среднеарифметическое значение положительных элементов матрицы.
    г) получить произведение и сумму элементов в третьем столбце.

Ответы 1

  • // PascalABC.NET 3.3, сборка 1625 от 17.01.2018// Внимание! Если программа не работает, обновите версию!begin  Writeln('*** Исходная матрица ***');  var a:=MatrRandom(4,4,-99,99);   a.Println(4); Writeln(4*a.ColCount*'-');  var s:=a.ElementsByRow.Where(t->t.Between(-10,5) and t.IsEven);  Writeln('На интервале [-10;5] четных элементов ',s.Count,      ', их сумма равна ',s.Sum);  var vc:=a.Cols.Select(t->t.Sum);  Write('Вектор сумм по столбцам: '); vc.Println;  Writeln('Среднее арифметическое положительных равно: ',      a.ElementsByRow.Where(t->t>0).Average);  Writeln('В третьем столбце сумма элементов равна ',      a.Col(2).Sum,', произведение равно ',      a.Col(2).Aggregate(1,(p,q)->p*q))end.Пример*** Исходная матрица ***  27 -87  73  -6  48 -50  75 -32   4  92 -84  85  27   4  31 -63----------------На интервале [-10;5] четных элементов 3, их сумма равна 2Вектор сумм по столбцам: 106 -41 95 -16Среднее арифметическое положительных равно: 46.6В третьем столбце сумма элементов равна 95, произведение равно -14256900
  • Добавить свой ответ

Войти через Google

или

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

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

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