Опубликовано 22.08.2017 по предмету Информатика от Гость >> <<

Ввести с клавиатуры 10 различных чисел найти сумму четных количество=1 среднее арифметическое

Ответ оставил Гость

Var
  a, n, i, s: integer;

begin
  for i := 1 to 10 do
  begin
    readln(a);
    if a mod 2 = 0 then begin
      s := s + a;n := n + 1;
    end;
  end;
  writeln(Сумма четных = , s);
  writeln(Количество четных = , n);
  writeln(Среднее арифметическое четных, s / n);
end.