Ввести одномерный массив из n элементов вещественного типа. Вычислить среднее арифметическое значение элементов, не имеющих дробной части.

const n=10;
var
a: array[1..n] of real;
s, k: real;
i, m: integer;
begin
//считываем данные в массив
for i:=1 to n do
  readln(a[i]);
k:=0; m:=0;
//находим сумму и количество целых элементов
for i:=1 to n do
  if a[i] = int(a[i]) then
    begin
    k:=k+a[i];
    inc(m);
    end;
//находим среднее арифметическое
s := k/m;
writeln(s);
end.