Всем привет! Подскажите пожалуйста, очень срочно нужно сделать кучу задач, вопрос такой: нужно из одномерного массива вывести четные и нечетные числа, понимаю что через if нужно сортировать элементы, но не знаю как правильно написать, начало такое:
Program stupidprog;
Uses crt;
Var a: array[1..10] of integer;
i, n:integer
Begin
Clrcsr;
Write('ввести кол-во элементов в массиве = ');
Read(n);
Writeln;
For i:=1 to n do
A[i]:=random(100);
For i:=1 to n do
Write(a[i],' ');
Writeln;
А дальше никак не пойму как составить сортировку четных, а потом не четных чисел, да еще их в порядке возрастания надо:( помогите пожалуйста.
Рейтинг: 5
голосов: 2