Question

Помогите решить 3 вариант 2 задачу

Answer 1

Const n=10;
var
  a: array[1..n] of integer;
  sa: real;
  k: integer;
  i: byte;
begin
  sa:=0; k:=0;
  for i:=1 to n do begin;    
    read (a[i]);
    if a[i] mod 4 =0 then begin 
      sa:=sa+a[i];
      k:=k+1;
    end;   
  end;
  sa:=sa/k;
  writeln;
  writeln ('Среднее значение элементов, кратных четырем, = ',sa);
end.
----------------------------------
Пример:
4 6 8 10 12 16 14 18 20 22
Среднее значение элементов, кратных четырем, = 12