Дан массив из 50 чисел. заполните его случайными числами. вывести на экран сначала все положительные его элементы, а затем все отрицательные.

Random это функция возвращающая случайные числа от 1 до указанного диапазона, но отрицательных чисел тут нет, так что воспользуемся приемом:

A: = Random(101)-50;      {Числа от -50 до 50}

B: = Random(101)-200;     {от -100 до 100}

А теперь выведи на экран все положительные, а затем отрицательные элементы - проверяй на больше/меньше нуля!