Пусть вводится последовательность чисел, которая заканчивается нулем. Найдите среднее арифметическое четных чисел.

[d_dima]

Писать в паскале. Заранее спасибо)

[interacia]

program programmersforum230076;
var
n,a,Sum:integer;
begin
Sum:=0;
n:=0;
Writeln('Введите набор ненулевых целых чисел; признак его завершения - число 0.');
Read(a);
While (a<>0) do
begin
if (a mod 2 = 0)then begin  Sum:=Sum+a; inc(n); end;
Read(a);
end;
Writeln('среднее арифметическое четных чисел из данного набора = ',Sum/n);
end.

Подобные задачки здесь.

[Serge_Bliznykov]

interacia, во-первых, предложенное Вами решение имеет существенный прокол (введите нечётное число (числа) и затем 0.
Получите ошибку деления на ноль.
результат нужно выводить примерно так:

  Write('среднее арифметическое четных чисел из данного набора = ');
  if n=0 
     then WriteLn(' 0 (чётных чисел нет) ')
     else WriteLn((Sum/n):0:5); {выведем число с 5 зн.после запятой} 
  Readln; {чтобы программа сразу не закрылась}

во-вторых, Вы совершенно зря не пользуетесь форматированием кода: отступы выделяют блоки кода и делают программу более наглядной!

[d_dima]

Спасибо помощь)