Вывести сначала все положительные элементы массива, затем все отрицательные

@XAAKI · Регистрация: 09.11.2017

Вывести сначала все положительные элементы массива, затем все отрицательные
помогите с кодом пожалуйста,еще новичок и не все получается.Есть код на Паскале-помогите перевести или предложите простейшее решение

Pascal

var
    arr: Array[Byte] Of ShortInt;
    i, n: Byte;
begin
    repeat
        Write('n=');
        ReadLn(n);
    until (n > 0); Dec(n);
    Randomize;
    for i := 0 to n do
    begin
        arr[i] := Random(199) - 99;
        Write(arr[i]:4);
    end;
    WriteLn; WriteLn;
    for i := 0 to n do
        if (arr[i] > 0)
        then
            Write(arr[i]:4);
    WriteLn; WriteLn;
    for i := 0 to n do
        if (arr[i] < 0)
        then
            Write(arr[i]:4);
end.

@Hitoku · 25.03.2018, 18:22

C++

#include <iostream>
#include <ctime>
#include <cstdlib>
 
int main()
{
    int n; std::cin >> n;
    int *a = new int[n];
    for (int i = 0; i < n; i++) {
        a[i] = -99 + rand() % 199;
        std::cout << a[i] << " ";
    }
    std::cout << "\n\n";
    for (int i = 0; i < n; i++)
        if (a[i] > 0) std::cout << a[i] << " ";
    std::cout << "\n\n";
    for (int i = 0; i < n; i++)
        if (a[i] < 0) std::cout << a[i] << " ";
    delete[] a;
    system("pause");
    return 0;
}

Опции темы

Вывести сначала все положительные элементы массива, затем все отрицательные

Решение