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

Random это функция возвращающая случайные числа от 1 до указанного диапазона, но отрицательных чисел тут нет, так что воспользуемся приемом: A: = Random(101)-50;      {Числа от -50 до 50} B: = Random(101)-200;     {от -100 до 100} А теперь выведи на экран все положительные, а затем отрицательные элементы - проверяй на больше/меньше нуля!