Вводится последовательность из n произвольных чисел - вопрос №9155591 от kazymbietova71 10.08.2020 14:24

Question

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

kazymbietova71 · Answer

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