Вычислить среднее арифметическое

[qwerty777]

Добрый день,
помогите пожалуйста с решением следующей задачи:

Задан массив A из N элементов. Вычислить среднее арифметическое значение элементов массива, не превышающих значение первого элемента этого массива. Значение N и элементы массива A ввести с клавиатуры.

Заранее большое спасибо.

[_-Re@l-_]

var A:array[1..10] of real;
     i,n:integer;
     s:real;
begin
       readln(n);
       s:=0;
       for i:=1 to n do
       begin
             readln(A[i]);
             if A[i]<A[1] then s:=s+A[i];
      end;
      s:=s/n;
      write(' srednee = ',s:5:2);
end.

[DoDge_VipeR]

неверно) а количество элементов

не превышающих значение первого элемента этого массива

кто считать будет ?

var A:array[1..10] of real;
     i,n:integer;
     s:real;
k:integer;
begin
       readln(n);
       s:=0;k:=0;
       for i:=1 to n do
       begin
             readln(A[i]);
             if A[i]<A[1] then begin s:=s+A[i];k:=k+1;end;
      end;
      s:=s/k;
      write(' srednee = ',s:5:2);
end.

[_-Re@l-_]

Задан массив A из N элементов. Вычислить среднее арифметическое значение элементов массива, не превышающих значение первого элемента этого массива. Значение N и элементы массива A ввести с клавиатуры.

ну да, забыл просто