Вводится последовательность из 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
Ответил Аноним
0
Далее, ЗАЧЕМ ее решать через какие-то процедуры и функции (про которые тоже ничего в вопросе не было), если она решается в одну строку? Чтобы длиннее и сложнее было?
Ответил Аноним
0
Учитесь свои вопросы формулировать так, чтобы получив решение потом не писать, что "а мне не так надо!"
Ответил aste3456
0
ну пожалуйста , очень надо
Ответил Аноним
0
Сформулируйте нормально вопрос, выложите, как положено, тогда будет предмет для обсуждения
Ответил Аноним
0
А так - ну с чего я буду делать то, чего даже в вопросе не написано? Чтобы ответ не соответствовал вопросу и объясняться потом с модераторами?
Новые вопросы