:найдите сумму элементов массива из 10 элементов, значения которых принадлежат промежутку (-20; 45)

Отличницааа5 Отличницааа5    1   13.07.2019 12:00    1

Ответы
steshagoncharov steshagoncharov  20.09.2020 01:15
// PascalABC.NET 3.0, сборка 1111
begin
  var n:=ReadInteger('Количество элементов массива: ');
  var A:=ArrRandom(n,-50,50);
  Writeln('*** Сгенерированный массив ***');
  A.Println(',');
  Write('Сумма элементов в диапазоне (-20;45) равна ');
  Writeln(A.Where(x->x in [-20..45]).Sum)
end.

Тестовое решение:
Количество элементов массива: 10
*** Сгенерированный массив ***
-6,-29,3,7,-40,-44,-46,-15,3,-3
Сумма элементов в диапазоне (-20;45) равна -11
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика