C++ с одномерным массивом, состоящим из n вещественных элементов, выполнить преобразовать одномерный массив состоящий из n вещественных элементов таким образом, чтобы сначала располагались все положительные элементы, а потом – все отрицательные (элементы, равные 0, считать положительными

#include < iostream> #include < time.h> using namespace std; void main() {   int n, k = 0; float buffer; cin > > n; float *mass = new float[n]; for (int i = 0; i < n; ++i)   mass[i] = (rand() % 100)-50; for (int i = 0; i < n; ++i) {   if (mass[i] > = 0)   {   buffer = mass[k];   mass[k] = mass[i];   mass[i] = buffer;   k++;   } } cout < < endl; for (int i = 0; i < n; ++i)   cout < < " "< < mass[i]; system("pause"); }

// pascalabc.net 3.3, сборка 1625 от 17.01.2018 // внимание! если программа не работает, обновите версию! begin   var x: =readreal('x=');   var n: =readinteger('n=');   // для сборок, начиная с 30.12.2017   writeln('(sin(',x,'))^',n,' = ',sin(x)**n);   // для более ранних версий pascalabc.net 3.3   writeln('(sin(',x,'))^',n,' = ',power(sin(x),n)); для всех прочих паскалей var   x,t: real;   n,z: integer; begin   write('x= '); readln(x);   write('n= '); readln(n);   t: =sin(x);   if t=0 then writeln('(sin(',x,'))^',n,' = 0')   else begin       if n mod 2=0 then z: =1       else z: =sign(t);       t: =abs(t);       writeln('(sin(',x,'))^',n,' = ',z*exp(n*ln(       end;   readln end.

Type mas=array [1..100] of integer ; var a: = max; i, n, min , max, b : integer; begin writeln ('n='); readln (n) ;     write ('a[1]= ');     readln (a [1]);     max : =a[ 1 ]; min : =a[ 1 ]; for i: =2 to n do   begin   write('a[',i,']= ');   readln(a[i]);   end;         for i: =1 to n do     begin       if a[ i ]> max then max : =a[ i ];       if a[ i ]< min then min : =a[ i ];     end;   b: = max - min ; writeln (b) ; writeln; end. делал в текстовом файле (паскаля нет).