• Создать программу средствами языка паскаль .Найти произведение неположительных элементов двумерного массива целых чисел кратных 4.

Ответы 1

  • PascalABC.NET 3.4.0, сборка 1671 от 31.05.2018Внимание! Если программа не работает, обновите версию!begin  var (m,n):=ReadInteger2('Количество строк и столбцов в массиве:');  Writeln('*** Исходный массив ***');  var a:=MatrRandom(m,n,-99,99);   a.Println(4); Writeln(4*a.ColCount*'-');  Writeln('П = ',a.ElementsByRow.Where(t->(t<=0) and (t mod 4=0))      .Aggregate(BigInteger(1),(p,q)->p*q))end.
    answer img
    • Автор:

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

Еще вопросы

Войти через Google

или

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

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

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