Дан массив целых чисел , определить в нем количество положительных и отрицательных

//PascalABC.NET 3.2 сборка 1318

Const  n=4;
begin
  var ar:=readarrInteger(n);
  writeln('Positive:',ar.Where(x -> x>0).Count);
  writeln('Negative:',ar.Where(x -> x<0).Count);
end.

Пример ввода:
1
2
0
-1
Пример вывода:
Positive:2
Negative:1

// C++
#include <iostream>using namespace std;const int N = 200;
int main() { setlocale(LC_ALL, "rus"); int data[N]; int Pol, Otr, sizemas; Pol = 0; Otr = 0; cout << "Введите размер массива" << endl; cin >> sizemas; cout << "Введите элементы массива (без 0)" << endl; for(int i=0; i<sizemas; i++) { cin >> data[i]; } for(int i=0; i<sizemas; i++) { if(data[i] >= 0) { Pol++; } else { Otr++; } } cout << "Положительных элементов: " << Pol << endl << "Отрицательных элементов: " << Otr << endl; return 0;}