Tojajas
4 год назад
Дан ряд из 15 чисел. Найти среднее арифметическое всех нечетных чисел и вывести. Паскаль
ОТВЕТЫ
Washington Paul
Oct 24, 2020
//PascalABC.NET
begin
readseqinteger('Введите 15 чисел:',15).Where(x -> Odd(x)).Average.Println;
end.
begin
readseqinteger('Введите 15 чисел:',15).Where(x -> Odd(x)).Average.Println;
end.
527
Смежные вопросы: