Дан массив целых чисел, состоящий из 30 элементов. Заполнить его любым удобным для вас...

Question

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

Answer 1

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.

Comments

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.