Акакий
6 год назад
Дан массив целых чисел, состоящий из 30 элементов. Заполнить его с любым удобным для вас способом.
*Сумму элементов массива, имеющих четное значение:
*Вывести количество элементов, значения которых больше заданного числа A
ОТВЕТЫ
Мордвинов
Jul 26, 2019
Begin
var ar := arrrandom(30, 1, 20);
ar.Println;
writeln(ar.Where(x -gt; x mod 2 = 0).Sum);
var a := readinteger;
write(ar.Where(x -gt; x gt; a).Count);
end.
var ar := arrrandom(30, 1, 20);
ar.Println;
writeln(ar.Where(x -gt; x mod 2 = 0).Sum);
var a := readinteger;
write(ar.Where(x -gt; x gt; a).Count);
end.
15
Смежные вопросы:
