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

[povsednevnost]

Найти среднее арифметическое элементов массива, больших заданного значения. Элементы массива и значение вводятся пользователем с клавиатуры.
Программа должна содержать хотя бы одну процедуру и функцию.

[Leshii]

А самому вот лень написать ?)

const n = 10;
var
 A: array [ 1 .. n ] of integer;
 i, znachenie, count: integer;
 sred_arifm, sum: real;
begin

for i:=1 to n do begin
     write('a[,'i,']=');readln(a[i]);
end;

write('Введите значение:');readln(znachenie);

sum:=0;count:=0;
for i:=1 to n do
 if a[i] > znachenie then begin
     inc(count);
     sum:=sum+a[i];
end;

sred_arifm:=sum/count;
write('Среднее арифметическое ... =',sred_arifm:3:2);
end;

Сможеш к примеру оформить процедуру ввода массива?

[povsednevnost]

Сообщение от Leshii

Сможеш к примеру оформить процедуру ввода массива?

Благодарю что отозвался. Ввод массива через процедуру сделать никак не могу

[Вадим Мошев]

Зачем делать ввод массива через подпрограмму? Можно сделать рассчёт требуемой величины там.

[Poma][a]

type
        TArr = array [1..1000] of Integer;
....
procedure (var a : TArr, const n : Integer);

var
          i : Integer;

begin
          for i := 1 to n do
                ReadLn (a[i])
end.

var
         a : TArr;