Var a,b:array of real;
i,n:integer;
begin
readln(n);
setlength(a,n);
setlength(b,n);
for i:=0 to n-1 do begin
read(a[i]);
b[i]:=a[i]/(i+1);
end;
for i:=0 to n-1 do
write(b[i],' ');
<span>end.</span>
Мдигтоьмпттмно иотмрльмпь иолмпотиир полипропилен ьтолллдь
Список атрибутов отделяется от имени тега одним или несколькими пробелами.
101₂ = 5₈
13₈
+ 5₈
------
20₈ = 2×8+0=16₁₀