15 4
3 3
0|75 *4
3|00
15,75 в 10 сс = 33,3 в 4-ной сс
var
m, k, d1: <em>single</em>;
i, t, d: <em>byte</em>;
begin
readln(t);
writeln();
for i := 1 to t do
begin
readln(k);
if (k > 0) then
begin
d1 += k;
d += 1;
end;
end;
writeln(d1 / d);
<span>end.</span>
2596 в 10 системе счисления
Митеориты
астеройды
митеорды
планеты
звёзда