Сначала сделал так:
Program array14;
Uses crt;
Var a,b,c:array[1..10] of integer;
I,n:integer;
Begin
Clrscr;
Write('ввести кол-во элементов в массиве = ');
Read(n);
Writeln;
For i:1 to n do
A[i]:=random(100);
For i:=1 to n do
Write(a[i],' ');
writeln;
Begin
If a[1] mod 2 = 0 then
For i:=1 to n do
B[1]:=a[1]
else c[1]:=a[1];
If a[2] mod 2 = 0 then
For i:=1 to n do
B[2]:=a[2]
else c[2]:=a[2];
If a[3] mod 2 = 0 then
For i:=1 to n do
B[3]:=a[3]
else c[3]:=a[3];
If a[4] mod 2 = 0 then
For i:=1 to n do
B[4]:=a[4]
else c[4]:=a[4];
If a[5] mod 2 = 0 then
For i:=1 to n do
B[5]:=a[5]
else c[5]:=a[5];
If a[6] mod 2 = 0 then
For i:=1 to n do
B[6]:=a[6]
else c[6]:=a[6];
End
Write('четные числа');
Writeln;
Write(b[i],' ');
Writeln;
Write('нечетные числа');
Writeln;
Write(c[i],' ');
Writeln;
End
Никак не пойму как все четные елементы разместить в массиве b, а нечетные в с, их еще и отсортировать надо будет по возрастанию, но примеры сортировки элементов массива я нашел. Где ошибка не знаю:(