Вывести элементы массива с нечетными номерами в порядке возрастания номеров

@loljkee · Регистрация: 11.05.2011

Дан массив A размера N. Вывести вначале его элементы с нечетными
номерами в порядке возрастания номеров, а затем — элементы с четными
номерами в порядке убывания номеров:
A1, A3, A5, . . ., A6, A4, A2.
Условный оператор не использовать.
загвоздка-не использовать условный оператор,не пойму ка без него(

@Small Lamer · 18.05.2011, 21:28

Pascal

var n,i,k:longint;
    a,b:array[1..1000] of longint;
begin
readln(n);
for i:=1 to n do read(a[i]);
i:=1;
while i<=n do
  begin
  write(a[i],' ');
  i:=i+2;
  end;
i:=2;
k:=0;
while i<=n do
  begin
  k:=k+1;
  b[k]:=a[i];
  i:=i+2;
  end;
for i:=1 to k do write(b[k-i+1],' ');
end.

@loljkee · 18.05.2011, 21:53 **[ТС]**

спасибо

@loljkee 0 / 0 / 0 Регистрация: 11.05.2011 Сообщений: 19
		1
	Вывести элементы массива с нечетными номерами в порядке возрастания номеров 18.05.2011, 20:28. Показов 1862. Ответов 2 Метки нет (Все метки) Дан массив A размера N. Вывести вначале его элементы с нечетными номерами в порядке возрастания номеров, а затем — элементы с четными номерами в порядке убывания номеров: A1, A3, A5, . . ., A6, A4, A2. Условный оператор не использовать. загвоздка-не использовать условный оператор,не пойму ка без него( 0

@loljkee 0 / 0 / 0 Регистрация: 11.05.2011 Сообщений: 19
	18.05.2011, 21:53 [ТС]	3
	спасибо 0

Опции темы

Вывести элементы массива с нечетными номерами в порядке возрастания номеров

Решение