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

Const
    n = 20;

var
    a: array [1..n] of integer;
    i, positives, negatives, zeros: integer;

begin
    for i := 1 to n do
    begin
        a[i] := Random(100) - 50;
        Write(a[i], ' ');
        if a[i] < 0 then
            negatives := negatives + 1
        else  if a[i] > 0 then
            positives := positives + 1
        else
            zeros := zeros + 1
    end;
    writeln;
    
    writeln('x > 0: ', positives);
    writeln('x = 0: ', zeros);
    writeln('x < 0: ', negatives);
end.

Const N = 10;
var
mas: array [1..N] of integer;
i, less, more, zero: integer;
begin
for i:=1 to N do
read(mas[i]);
for i:=1 to N do
if mas[i]<0 then
less:=less+1
else begin
if mas[i]>0 then
more:=more+1
else
zero:=zero+1
end;
writeln('Меньше 0: '+less+' Больше 0: '+more+' Равно 0: '+zero)
end.

В древнем Египте использовалась нумерация, основанная на десятичной системе счисления:
- для единиц использовались палочки
- для десятков - пятки
- для сотен - мерные верёвки
- для тысяч - цветущий лотос
- десятки тысяч - пальцы
- сотни тысяч - головастики или жабы
- миллионы - человек
Также иногда утверждается, что десятки миллионов изображались иероглифом восходящего солнца в честь бога Амона Ра.

Для записи чисел иероглифы повторялись до девяти раз и записывались вместе.

Несколько позже (не позже 1740 г. д.н.э.) у египтян появился символ, обозначающий число ноль. Он изображался в виде сердца с крестом.

#include <iostream>

#include <vector>

#include <algorithm>

#define ll long long int

#define vi vector<int>

#define va vector<vector<int>>

#define frr(i,n) for(int i=0;i<n;i++)

#define fir(n,i) for(int i=n-1;i>=0;i--)

using namespace std;

int main(int argc, char* argv[])

{

vi s, g, h, k;

int a, b, c, d, e = 0;

cin >> a >> b;

frr(i, a) {

 cin >> c;

 if (c < 0) s.push_back(abs(c));

 e++;

}

frr(i, b) {

 cin >> c;

 if (c > 0) s.push_back(abs(c));

 e++;

}

sort(s.begin(), s.end());

cout << s[(e / 2)-1];

 

}

Объяснение: