Взаданном массиве вещественных чисел определить количество элементов меньших среднего арифметического значения.

CONST N=5;
var
x:real;
i:integer;
ar:array[1..N] of real;

begin
for i:=1 to N do begin
readln(ar[i]);
x:=x+ar[i];
end;

x:=x/i;

for i:=1 to N do if (ar[i] < x) then write(ar[i],' ');

end.