{Файл: prog51.pas
Задача:
  Дан линейный массив из N целых чисел (N=10). Найти 
  количество, сумму и среднее арифметическое всех четных чисел.
Автор:
  
Дата:
  28,10,2015}
const
  N = 10;
  
var
  a     :array[1..N] of integer;
  i     : integer;
  s, c  : integer;
  
begin

  {Заполнение массива а случайными числами}
  randomize;
  for i:=1 to N do
    a[i]:=random(100);
  
  {Вывод массива a на экран}
  writeln('Массив');
  for i:=1 to N do
    write(a[i]:6);
  writeln;
  
  {подсчет количества и суммы четных чисел}
  c:=0;
  s:=0;
  for i:=1 to N do
    if a[i] mod 2 = 0 then 
    begin
      c:=c+1;
      s:=s+a[i];
    end;
    
  {Вывод ответа}
  if c<> 0 then
  begin
    writeln('Количество четных чисел = ', c:6);
    writeln('Сумма четных чисел = ', s:6);
    writeln('Среднее арифметическое четных чисел = ',s/c:6:2);
  end
  else
    writeln('В массиве нет четных чисел.');
end.