Вводится последовательность из N произвольных чисел, - вопрос №18745736 от СофияВладимировна 13.05.2022 10:46

Question

Информатика: Вводится последовательность из N произвольных чисел, найти среднее значение положительных элементов последовательности. решить с использованием одного из операторов цикла: FOR, WHILE или REPEAT.Паскаль

СофияВладимировна · Answer

##var (n, s, k) := (ReadInteger, 0, 0);for var i := 1 to n dobegin  var t := ReadInteger;  if t 0 then  begin    s += t;    Inc(k)  end;end;if k 0 then  Print(s / k)else  Print( Нет положительных чисел )...