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

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

a: = random(101)-50;       {числа от -50 до 50}

b: = random(101)-200;     {от -100 до 100}

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

// pascalabc.net 3.0, сборка 1139 от 10.01.2016 begin   var n: =readinteger('количество элементов в массиве: ');   var a: =arrrandom(n,-50,50);   a.println(',');   writeln('четные элементы: ');   var i: =1;   while i< n do begin write(a[i],' '); inc(i,2) end;   writeln;   writeln('нечетные элементы: ');   i: =0;   while i< n-1 do begin write(a[i],' '); inc(i,2) end;   writeln end. тестовое решение: количество элементов в массиве:   10 15,-18,-29,-25,46,21,-8,-17,-9,15 четные элементы: -18 -25 21 -17 15 нечетные элементы: 15 -29 46 -8 -9

// pascalabc.net 3.0, сборка 1139 от 10.01.2016 begin   var n: =readinteger('количество элементов в массиве: ');   var a: =arrrandom(n,-10,10).println(',');   write('неотрицательные элементы: ');   a.where(x-> x> =0).println(',');   write('отрицательные элементы: ');   a.where(x-> x< 0).println(','); end. тестовое решение: количество элементов в массиве:   15 0,2,-2,-9,6,4,7,2,5,-3,3,-5,0,9,-6 неотрицательные элементы: 0,2,6,4,7,2,5,3,0,9 отрицательные элементы: -2,-9,-3,-5,-6