Дан целочисленный массив из n элементов. Сформировать новый массив, в котором сначала расположены все четные, а затем нечетные элементы заданного массива.
Помогите, пожалуйста, написать программу в паскале. Совсем не понимаю эту тему.
var
a, b: array [1..100] of integer;
n, c, k: integer;
begin
randomize;
write('n (<= 100)? ');
readln(n);
write('a:');
for c := 1 to n do begin
a[c] := random(100);
write(a[c]:3);
end;
writeln;
for c := 1 to n do
if not odd(a[c]) then begin
inc(k);
b[k] := a[c];
end;
for c := 1 to n do
if odd(a[c]) then begin
inc(k);
b[k] := a[c];
end;
write('b:');
for c := 1 to n do write(b[c]:3);
writeln;
end.
⇢