• Паскаль
    Найти сумму тех элементов двумерного массива, которые больше 1.

Ответы 1

  • // PascalABC.NET 3.2, сборка 1416 от 26.03.2017// Внимание! Если программа не работает, обновите версию!begin  var n:=ReadInteger('Количество строк в массиве:');  var m:=ReadInteger('Количество столбцов в массиве:');  Writeln('*** Исходный массив [',n,',',m,'] ***');  var a:=MatrRandom(n,m,-99,99);   a.Println(4); Writeln(4*a.ColCount*'-');  Writeln('S=',a.ElementsByRow.Where(x->x>1).Sum)end.ПримерКоличество строк в массиве: 4Количество столбцов в массиве: 7*** Исходный массив [4,7] ***   5 -40  29  34 -77  19  80   4 -13   9  13 -37  -3 -38 -12 -35  44 -90 -50  66 -58 -79 -62  79  96 -36 -11  13----------------------------S=491
    • Автор:

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

Войти через Google

или

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

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

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