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

Answer 2

Вот пример решения задачи на поиска среднего значения положительных элементов последовательности в Pascal с использованием цикла FOR:

pascalCopy code
program AveragePositiveNumbers;
var
  N, i: integer;
  num, sum: real;
begin
  write('Введите количество элементов в последовательности: ');
  readln(N);

  sum := 0;

  for i := 1 to N do
  begin
    write('Введите число ', i, ': ');
    readln(num);

    if num > 0 then
    begin
      sum := sum + num;
    end;
  end;

  if sum > 0 then
  begin
    writeln('Среднее значение положительных элементов: ', sum / N);
  end
  else
  begin
    writeln('В последовательности нет положительных элементов.');
  end;
end.

Эта программа сначала запрашивает у пользователя количество элементов в последовательности (N), затем запускает цикл FOR для ввода N чисел. Если число положительное, оно добавляется к сумме положительных чисел. В конце программа вычисляет и выводит среднее значение положительных элементов, предварительно проверяя, что есть хотя бы один положительный элемент в последовательности.