Array107. Дан массив размера $$N$$. Утроить в нем вхождения всех элементов с нечетными номерами ($$1, 3, …$$). Условный оператор не использовать.
Решение:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 |
program Array107; type m = array[1..20] of Integer; var a, b: m; N,Nk,i,k:Integer; begin Write('N: '); Readln(N); Writeln('A: '); for i:=1 to N do begin write(i,' :'); readln(a[i]); end; Nk:=N; k:=1; for i:=1 to N do begin b[k]:=a[i]; if i mod 2 <> 0 then begin Nk:=Nk+2; k:=k+1; b[k]:=a[i]; k:=k+1; b[k]:=a[i]; end; K:=k+1; end; N:=Nk; a:=b; Writeln(N); for i:=1 to N do writeln(i,' :',a[i]); end. |
Решение 2:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 |
{$APPTYPE CONSOLE} program Array107; type m = array[1..20] of Integer; var a: m; i,i2,i3,n:Integer; begin Write('N: '); Readln(N); Writeln('A: '); for i:=1 to N do begin write(i,' :'); readln(a[i]); end; i:=n-((n-(n div 2) * 2) -1); while (i>0) do begin for i3:=1 to 2 do begin inc(n); i2:=n; while (i2>i) do begin a[i2]:=a[i2-1]; dec(i2); end; end; dec(i,2); end; for i:=1 to n do Writeln(a[i]); readln; end. |
Задачи из раздела Array можно посмотреть здесь.
У меня в коде для fpc после 20 строки n += 1; добавить строку k += 1; а 22 строку k += 4 изменить на k += 2; Хотя и так работает.