Question

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

решить с использованием одного из операторов цикла: FOR, WHILE или REPEAT.
Паскаль

Answer 1

##

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('Нет положительных чисел')