Предмет: Информатика,
автор: 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