Question

Найти среднее арифметическое положительных чисел и количество четных отрицательных чисел из десяти введенных ( на языке Лазариуса)​

Answer 1

Ответ:

........................

Answer 2

Вот пример решения данной задачи на языке программирования Pascal (Lazarus):

pascalCopy code
program AverageAndCount;

var
  i, countPos, countNegEven: integer;
  num, sumPos: real;

begin
  countPos := 0;
  countNegEven := 0;
  sumPos := 0;

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

    if num > 0 then
    begin
      sumPos := sumPos + num;
      countPos := countPos + 1;
    end
    else if (num < 0) and (num mod 2 = 0) then
    begin
      countNegEven := countNegEven + 1;
    end;
  end;

  if countPos > 0 then
  begin
    writeln('Среднее арифметическое положительных чисел: ', sumPos / countPos:0:2);
  end
  else
  begin
    writeln('Нет положительных чисел.');
  end;

  writeln('Количество четных отрицательных чисел: ', countNegEven);
  readln;
end.

Эта программа запрашивает 10 чисел от пользователя. Она подсчитывает сумму положительных чисел и их количество, а также подсчитывает количество четных отрицательных чисел. Затем программа выводит среднее арифметическое положительных чисел и количество четных отрицательных чисел.

Обратите внимание, что программа предполагает, что пользователь будет вводить только числа, и она не обрабатывает случаи ввода некорректных данных.