28,25 байт
0,0276 кбайт
0,0000269 мегабайт<span>
0,221 килобита</span>
<span>0,000216</span> мегабита
В остальное там 200 символов.
For i:=n downto 1 do write (mas[i], ' ');
n - количество чисел в массиве
Паскаль:
1) y:=cos(2*x)+sin(x/4)
2) c:=a*b*sqrt(1+5*a)
Var
d: integer;
n := 0;
s := 0;
begin
repeat
readln(d);
if (d > 0) and (d mod 8 = 0) then begin
s := s + d;
n := n + 1;
end
until d = 0;
writeln('Avg = ',s / n)
end.