• 1. Найти суммы положительных элементов в каждой строке матрицы a(6,3).
    2. Задана матрица z(3,5). Найти и вывести на печать все элементы матрицы, удовлетворяющих условию 0<z[i,j]<15. считая что такие элементы есть.

Ответы 1

  • // PascalABC.NET 3.2, сборка 1437 от 03.05.2017// Внимание! Если программа не работает, обновите версию!begin  var a:=MatrRandom(6,3,-99,99);   a.Println(4); Writeln(4*a.ColCount*'-');  a.Rows.Select(r->r.Where(x->x>0).Sum).Print;  Println(' - суммы положительных');    Writeln;  var z:=MatrRandom(3,5,-10,20);   z.Println(4); Writeln(4*z.ColCount*'-');  z.Rows.SelectMany(x->x).Where(x->(x>0) and (x<15)).Printlnend.Пример -67  56 -68  16 -59 -82 -54 -44  90  82  95  39 -44  60  22 -97  82  23------------56 16 90 216 82 105 - суммы положительных    7  -5  -3   5  -7   3   5  -8  14  -6  12  14  19  14  -7--------------------7 5 3 5 14 12 14 14
    • Автор:

      rambler
    • 5 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

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

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

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