СОРТИРОВКА ЭЛЕМЕНТОВ МАССИВОВ 1. Создать произвольный целочисленный массив данных размером 10 элементов. Элементами массива являются произвольные положительные и отрицательные целые числа в диапазоне от -10 до 17.

2. Провести сортировку массива и сформировать два других массива по признаку «положительные – отрицательные» числа.

3. Вывести на печать в разные строки исходный массив, сформированный массив положительных чисел и сформированный массив отрицательных чисел.
Dev C++

Описание алгоритма:
Пусть даны числа a, b, c, d. Сравниваем a и b, c и d. Затем сравниваем максимальные числа в своих парах (наибольшее из них - максимальное среди всех чисел) и минимальные числа в своих парах (наименьшее из них - минимальное среди всех чисел). Сравниваем оставшиеся два числа и получаем информацию о порядке всех чисел, которую выводим на экран.

Реализация (python 3)
a, b, c, d = map(int, input().split())
if a > b:
    a, b = b, a
if c > d:
    c, d = d, c
if a > c:
    a, c = c, a
if b > d:
    b, d = d, b
if b > c:
    b, c = c, b
print(a, b, c, d)

Пример ввода:
1 4 2 3
Пример вывода:
1 2 3 4

Я так понял на паскале нужно написать?
Program find;uses crt;varA:array[1..40] of integer;n,i ,k:integer;BEGINRandomize ;//Это ,чтобы каждый раз новые числа генерировало//Заполняем массив рандомными числамиfor i:=1 to 40 do  A[i] := random(15);
Writeln('Введите искомый элемент');Readln(n);
k:=0;for i:=1 to 40 do Begin                   // Проверяем,совпадает ли очередной эл-нт массива с искомым                   //Если совпадает, то увеличиваем счетчик k                   if A[i] = n  then k := k+1;                  End;
Writeln ('В массиве ', k , ' раз(а) встречается заданный элемент' );END.