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

@P-980 · Регистрация: 13.12.2015

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

@Puporev · 11.03.2016, 20:16

Pascal

var a:array[1..100] of integer;
    n,i:integer;
begin
randomize;
write('n=');
readln(n);
writeln('Исходный массив');
for i:=1 to n do
 begin
  a[i]:=random(100);
  write(a[i]:4);
 end;
writeln;
writeln('Массив по условию');
i:=1;
while i<=n do
 begin
  write(a[i]:4);
  i:=i+2;
 end;
if odd(n) then i:=n-1 else i:=n;
while i>=2 do
 begin
  write(a[i]:4);
  i:=i-2;
 end;
end.

@Брайтер · 11.03.2016, 23:44

Pascal

var  mas:array of integer;
     n,i:integer;
begin
read(n);
setlength(mas,n);
for i:=0 to n-1 do
  read(mas[i]);
writeln(mas);
i:=0;
while i<n do
  begin
    write(mas[i],' ');
    i:=i+2;
  end;
n:=n-n mod 2;
i:=n-1;
while i>0 do
  begin
    write(mas[i],' ');
    i:=i-2;
  end;
end.

@P-980 · 13.03.2016, 17:31 **[ТС]**

Puporev, Брайтер, благодарю!)

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

Решение

Решение

@P-980 0 / 0 / 0 Регистрация: 13.12.2015 Сообщений: 50
		1
	Вывести элементы с нечетными индексами в порядке возрастания индексов, потом - с четными в порядке убывания 11.03.2016, 19:07. Показов 1828. Ответов 3 Метки нет (Все метки) Дан массив A размера N. Вывести вначале его элементы с нечетными номерами в порядке возрастания номеров, а затем — элементы с четными номерами в порядке убывания номеров: A1,A3,A5…,A6,A4,A2. Условный оператор не использовать. Массив заполняется с клавиатуры. __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

@P-980 0 / 0 / 0 Регистрация: 13.12.2015 Сообщений: 50
	13.03.2016, 17:31 [ТС]	4
	Puporev, Брайтер, благодарю!) 0

Опции темы