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

const n=10;vara: 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.