Дан массив целых чисел, состоящий из 30 элементов. Заполнить его любым удобным для вас способом. Найти: Суму элементов массива, имеющих четное значение; Вывести количество элементов, значения которых больше заданного числа А ...
Дан массив целых чисел, состоящий из 30 элементов. Заполнить его любым удобным для вас способом. Найти:
Суму элементов массива, имеющих четное значение;
Вывести количество элементов, значения которых больше заданного числа А (А вводится с клавиатуры)
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы