Вводится последовательность из N произвольных чисел, найти среднее значение положительных элементов последовательности.
решить с использованием одного из операторов цикла: FOR, WHILE или REPEAT.
Паскаль
решить с использованием одного из операторов цикла: FOR, WHILE или REPEAT.
Паскаль
More Questions From This User See All
Answers & Comments
##
var (n, s, k) := (ReadInteger, 0, 0);
for var i := 1 to n do
begin
var t := ReadInteger;
if t > 0 then
begin
s += t;
Inc(k)
end;
end;
if k > 0 then
Print(s / k)
else
Print('Нет положительных чисел')