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

@zhanibek_vko · Регистрация: 19.11.2010

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

@Puporev · 02.12.2010, 10:15

Pascal

uses crt;
const max=100;
var n,i:byte;
    a:array[1..max] of integer;
begin
repeat
write('Размер массива до ',max,' n=');
read(n);
until n in [1..max];
writeln('Исходный массив:');
for i:=1 to n do
 begin
  a[i]:=random(50);
  write(a[i]:4);
 end;
 writeln;
writeln('Вывод сначала четных индексов, затем нечетных:');
i:=2;
while i<=n do
 begin
  write(a[i]:4);
  i:=i+2;
 end;
i:=1;
while i<=n do
 begin
  write(a[i]:4);
  i:=i+2;
 end;
end.

@zhanibek_vko 0 / 0 / 0 Регистрация: 19.11.2010 Сообщений: 16
		1
	Вывести вначале элементы массива с четными номерами (в порядке возрастания номеров) 01.12.2010, 15:39. Показов 5000. Ответов 1 Метки нет (Все метки) Дан массив А размера N.Вывести вначале его элементы с четными номерами(в порядке возрастания номеров),а затем-элементы с нечетными номерами(также в порядке возрастания номеров): A2,A4,A6,...,A1,A3,A5,... . Условный оператор не использовать. 0

Опции темы

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

Решение