Var
a,b,i,i2:integer;
Begin
Readln(a);
b:=1;
for i:=1 to a do begin
if b mod 2 = 0 then b:=b+1;
for i2:=1 to b do if i2 mod 2 <>0 then Write(i2,' ');
b:=b+1;
Writeln();
end;
<span>End.</span>
Если из 10 элементов то
for i:=1 to 10 do
if a[i] mod 2 = 0 then a[i]:=a[i]*2;
2. 123689
3. 1ж2а3д4в
4. 987
5. 238
6. в
7. 423156
8. в
9. 720
10. 156
<span>g = <span>9.8
</span>d = <span>1200
</span>h1 = <span>7
</span>h2 = <span>4
</span>h3 = <span>10
</span>h4 = <span>6
</span>h5 = <span>5
</span>h6 = <span>3
</span>p1 = d*g*h1
p2 = d*g*h2
p3 = d*g*h3
p4 = d*g*h4
p5 = d*g*h5
p6 = d*g*h6
print('1: '+ str(p1) +' 2: '+str(p2)+' 3: '+str(p3)+' 4: '+str(p4)+' 5: '+str(p5)+' 6: '+str(p6))</span>
Номер с
(Я люблю ограничением по количеству символов)