Определите среднее арифметическое всех элементов массива а[ условию а[i]> 5

var a: array [1..10] of integer;

i: integer; ss: real; cc: byte;

begin

ss:=0;

cc:=0;

for i:=1 to 10 do begin

write('A[',i,'] = ');

readln(a[i]);

if a[i]>5 then begin

ss:=ss+a[i];

inc(cc);

end;

end;

writeln;

writeln('Среднее арифметическое = ',ss/cc);

end.