program Average;

var
arr: array$$\mathrm{1..10}$$ of Integer;
i, count, sum: Integer;
average: Real;

begin
sum := 0;
count := 0;

// Заполнение массива
writeln${}^{\prime }Введите10чисел{:}^{\prime }$;
for i := 1 to 10 do
readln$arr[i]$;

// Вычисление среднего арифметического ненулевых чисел
for i := 1 to 10 do
begin
if arr$$i$$ <> 0 then
begin
sum := sum + arr$$i$$;
count := count + 1;
end;
end;

if count <> 0 then
average := sum / count
else
average := 0;

writeln${}^{\prime }Среднееарифметическоевсехненулевыхчисел{:}^{\prime },average:0:2$;
end.