Помощь - Поиск - Пользователи - Календарь
Полная версия: Изменение порядка элементов в массиве
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
Tribunal
Дан массив размера N. Вывести вначале его элементы с четными|нечетными индексами, а затем — с нечетными|четными .

задача элементарная,но похоже я её совсем усложнила и у меня получилась довольно глупая вещь=/
подскажите,пожалуйста=(
Tribunal
и аналогичная задача:

Дан целочисленный массив размера N. Вывести вначале все его четные|нечетные элементы, а затем — нечетные|четные.
klem4
Пользуйся поискомб все уже решалось по сто раз

1.1

uses crt;
const
n = 5;
var
x : array[1..n] of integer;
flag : boolean;
i : byte;

begin

clrscr;

for i := 1 to n do readln(x[i]);

writeln;

for flag := false to true do begin

if flag then i := 1
else i := 2;

while(i <= n) do begin
writeln(x[i]);
inc(i,2);
end;

writeln;
end;

readln;
end.

Tribunal
а что такое flag и inc?
klem4
flag - логически переменная
inc(i) то же самое что i := i + 1;

вот вариант без flag и inc

uses crt;
const
n = 5;
var
x : array[1..n] of integer;
i : byte;

begin

clrscr;

for i := 1 to n do readln(x[i]);

writeln;

i := 1;

while(i <= n) do begin
writeln(x[i]);
i := i + 2;
end;

writeln;

i := 2;

while(i <= n) do begin
writeln(x[i]);
i := i + 2;
end;

readln;
end.

Tribunal
а как с элементами четными/нечетными? unsure.gif
klem4
проверка, является ли число - четным


if n mod 2 = 0 then // число четное
else // число не четное

либо

if odd(n) then // число не четное
else // число четное

Tribunal
а что такое odd?
klem4
А что по коду не ясно ? Ф-я возвращает true если ее аргумент не четный
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.