Предмет: Информатика,
автор: aste3456
Вводится последовательность из n произвольных чисел найти среднее значение положительных элементов последовательности. массив Паскаль
Ответы
Автор ответа:
0
PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!
begin
ReadSeqReal('=>',ReadInteger('n=')).Where(t->t>0).Average.Println
end.
Пример
n= 8
=> 3.16 0 -12.7 6 -19 0.082 7 -3
4.0605
Внимание! Если программа не работает, обновите версию!
begin
ReadSeqReal('=>',ReadInteger('n=')).Where(t->t>0).Average.Println
end.
Пример
n= 8
=> 3.16 0 -12.7 6 -19 0.082 7 -3
4.0605
Аноним:
Последовательность в памяти не хранится, поэтому никакой массив тут не нужен. Как бы эта задача решалась без компьютера? Берем очередное число, если оно положительное, накапливаем сумму. Когда все числа получили, делим сумму накопленных чисел на их количество в сумме, получая среднее. Хранить сами числа не надо. Программа работает так же.
Похожие вопросы
Предмет: Қазақ тiлi,
автор: nurtajkambar
Предмет: Русский язык,
автор: benji02k
Предмет: Окружающий мир,
автор: Demonoangel12
Предмет: Математика,
автор: mota1