Найти сумму всех элементов массива целых чисел, больших заданного числа, больших...

Question

Найти сумму всех элементов массива целых чисел, больших заданного числа, больших заданного числа. Размер массива 10 заполнения массива осуществить со случайными числами от 50 до 100

Answer 1

// PascalABC.NET 3.3, сборка 1547 от 07.10.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(10,50,100); a.Println;
  var n:=ReadInteger('n=');
  Writeln('Сумма элементов, больших ',n,', равна ',a.Where(x->x>n).Sum)
end.

Пример
71 89 78 99 99 70 82 68 56 69
n= 73
Сумма элементов, больших 73, равна 447

Comments

спасибо