Инициализировать массив а из 20 элементов на отрезке [20; 70] и вывести его на экран. найти сумму четных значений элементов массива количество значений кратных 5

gulyaaxundova gulyaaxundova    1   11.09.2019 10:40    0

Ответы
Маркус337 Маркус337  16.08.2020 14:20
// PascalABC.NET 3.3, сборка 1579 от 18.11.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(20,20,70); a.Println;
  Writeln('Sчет= ',a.Where(t->t.IsEven).Sum);
  Writeln('Элементов, кратных 5- ',a.Where(t->t mod 5=0).Count)
end.

Пример
55 26 45 65 59 27 39 26 42 26 30 42 64 22 55 25 27 40 43 40
Sчет= 358
Элементов, кратных 5- 8
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика