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

Question

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

Answer 1

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

Comments

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

---

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

---

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

---

Где было в вопросе про файлы?

---

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

---

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

---

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

---

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

---

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