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

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

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

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

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