Дан массив целых чисел, состоящий из 30 элементов. заполнить его любым удобным для вас найти: суму элементов массива, имеющих четное значение; вывести количество элементов, значения которых больше заданного числа а (а вводится с клавиатуры)

RUMBANITTA RUMBANITTA    3   12.08.2019 04:40    0

Ответы
mazyrin91p08sby mazyrin91p08sby  31.08.2020 14:24
Begin
  var ar := arrrandom(30, 1, 20);
  ar.Println;
  writeln(ar.Where(x -> x mod 2 = 0).Sum);
  var a := readinteger;
  write(ar.Where(x -> x > a).Count);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика