найти среднее арифметическое чисел,

[Arinaeros]

Используя цикл for ,найти среднее арифметическое чисел,принадлежащих отрезку [2,18] кратных 2 и введённых с клавиатуры.Всего ввести n различных чисел

[BDA]

Нужно просто объединить решения предыдущих задачек. Сумму чисел уже считали, принадлежность отрезку и делимость уже проверяли. Осталось кроме суммы завести еще счетчик для количества слагаемых, чтобы после цикла разделить на него сумму.

for i := 1 to N do
begin
  ...
  if ... then
  begin
    ...
    inc(count);
  end;
end;
writeln(s / count:0:3);

[Arinaeros]

спасибо огромное!!!