Дан массив размера N. Вывести вначале его элементы с четными|нечетными индексами, а затем — с нечетными|четными .
задача элементарная,но похоже я её совсем усложнила и у меня получилась довольно глупая вещь=/
подскажите,пожалуйста=(
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.
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.
if n mod 2 = 0 then // число четное
else // число не четное
либо
if odd(n) then // число не четное
else // число четное