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

Ответы 1

  • // PascalABC.NET 3.3, сборка 1590 от 03.12.2017// Внимание! Если программа не работает, обновите версию!begin  Writeln('*** Исходная матрица ***');  var a:=MatrRandom(5,4,-5,20);   a.Println(4); Writeln(4*a.ColCount*'-');  Writeln('a) ',a.ElementsByRow      .Where(t->t.Between(0,5) or t.Between(5,15)).Sum);  Writeln('б) ',a.Row(2).Min);  var b:=a.ElementsByRow.ToArray; Print('в)'); b.Println;  Writeln('г) ',a.ElementsByRow.TakeLast(10).Sum)end.Пример*** Исходная матрица ***  19  -2  17  -1   4  10   9   9   8  15  -1  -1  -3  12  -1  20  10   3  16  13----------------a) 93б) -1в) 19 -2 17 -1 4 10 9 9 8 15 -1 -1 -3 12 -1 20 10 3 16 13г) 68
  • Добавить свой ответ

Войти через Google

или

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

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

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