var 
  Mas:array of real;
  Count, i, k:Cardinal;
  Sum:Real;
begin
//ввод
Write('Длина массива?');
Readln(Count);
Setlength(Mas, Count);
For i:=0 to Count-1 do
begin
  Readln(Mas[i]);
end;
//Решение
Sum:=0;
k:=0;
For i:=0 to Count-1 do
begin
  If Mas[i]>0 then Sum:=Sum+Mas[i];
  Inc(k);
end;
Writeln('Kol-vo=',k);
Writeln('Sred. Arif.=',Sum/k);
end.