var
 massiv : array [1..10] of integer;
 sum,i,kolvo:integer;
 sr_arif:real;
begin
 writeln('Введите элементы массива (10 целых чисел) в одной строке и нажмите (Enter)');
 for i:=1 to 10 do 
  readln(massiv[i]);

 for i:=1 to 10 do
 sum:=sum+massiv[i];

 for i:=1 to 10 do 
 if massiv[i]<>0 then 
  inc(kolvo);

  
 sr_arif:=sum/kolvo;