Предмет: Информатика, автор: aste3456

Вводится последовательность из n произвольных чисел найти среднее значение положительных элементов последовательности. массив Паскаль

Ответы

Автор ответа: Аноним

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

Аноним: Последовательность в памяти не хранится, поэтому никакой массив тут не нужен. Как бы эта задача решалась без компьютера? Берем очередное число, если оно положительное, накапливаем сумму. Когда все числа получили, делим сумму накопленных чисел на их количество в сумме, получая среднее. Хранить сами числа не надо. Программа работает так же.

aste3456: Можешь сделать, чтобы числа не с консоли , а с файлами , тема работа с файлами , пожалуйста

aste3456: С помощью процедуры и функции решить ее можно ?

Аноним: Где было в вопросе про файлы?

Аноним: Далее, ЗАЧЕМ ее решать через какие-то процедуры и функции (про которые тоже ничего в вопросе не было), если она решается в одну строку? Чтобы длиннее и сложнее было?

Аноним: Учитесь свои вопросы формулировать так, чтобы получив решение потом не писать, что "а мне не так надо!"

aste3456: ну пожалуйста , очень надо

Аноним: Сформулируйте нормально вопрос, выложите, как положено, тогда будет предмет для обсуждения

Аноним: А так - ну с чего я буду делать то, чего даже в вопросе не написано? Чтобы ответ не соответствовал вопросу и объясняться потом с модераторами?