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

В C++
#include <iostream>
int main()
{
    using namespace std;

    cout << "Enter N: ";
    int N;
    cin >> N;

    int * parr = new int[N];
    for (int i = 0; i < N; ++i)
    {
        cout << "Enter #" << i + 1 << " element: ";
        cin >> parr[i];
    }

    int kpos = 0, kneg = 0, kzer = 0;
    for (int i = 0; i < N; ++i)
    {
        if (parr[i] > 0)
            ++kpos;
        else if (parr[i] < 0)
            ++kneg;
        else
            ++kzer;
    }

    cout << "Number of positive: " << kpos
        << "\nNumber of negative: " << kneg
        << "\nNumber of zero: " << kzer << endl;

    return 0;
}

Var a:array of integer; x,y,z,n:integer; begin readln(n); setlength(a,n); for i:=0 to Length(a) do begin if a[i]>0 then x:=x=1; if a[i]<0 then y:=y+1; if a[i] =0 then z:=z+1; end; write('отрицательных=',x,' положительных=',y,' нулевых=',z); end.

Var
  s: string;
  n,m: integer;

 begin
  readln(n);
  if (n <= 9) then write(n)
  else if (n <= 9 + 9) then
     begin
       s := inttostr(n - 9);
      write(s + s);
     end
  else if (n <= 9 + 9 + 90) then
     begin
       s := inttostr(n - 9 -9 + 10 -1);
       m:=s.Length-1;
       write(s + s[m:0:-1]);
     end
  else if (n <= 9 + 9 + 90 + 90) then
     begin
       s := inttostr(n - 9 - 9 + 90 + 10 - 1);
       write(s + s[::-1]);
     end
  else if (n <= 9 + 9 + 90 + 90 + 900) then
     begin
       s := inttostr(n - 9 - 9 - 90 - 90 + 100 - 1);
       m:=s.Length-1;
write(s + s[m:0:-1]);
     end
  else if (n <= 9 + 9 + 90 + 90 + 900 + 900) then
     begin
       s := inttostr(n - 9 - 9 - 90 - 90 - 900 + 100 - 1);
       write(s + s[::-1]);
     end
  else if (n <= 9 + 9 + 90 + 90 + 900 + 900 + 9000) then
     begin
       s := inttostr(n - 9 - 9 - 90 - 90 - 900 - 900 + 1000 - 1);
       m:=s.Length-1;
       write(s + s[m:0:-1]);
     end
  else if (n <= 9 + 9 + 90 + 90 + 900 + 900 + 9000 + 9000) then
     begin
       s := inttostr(n - 9 - 9 - 90 - 90 - 900 - 900 - 9000 + 1000 - 1 );
       write(s + s[::-1]);
     end
  else
     begin
       s := inttostr(n - 9 - 9 - 90 - 90 - 900 - 900 - 9000 - 9000 + 10000 - 1);
       m:=s.Length-1;
       write(s + s[m:0:-1]);
     end
end.

159 в 10 СС = 10011111 в 2 СС

159 в 10 СС = 237 в 8 СС

159 в 10 СС = 9F в 16 СС

Объяснение:

159 / 2 = 79 + остаток 1

79 / 2 = 39 + остаток 1

39 / 2 = 19 + остаток 1

19 / 2 = 9 + остаток 1

9 / 2 = 4 + остаток 1

4 / 2 = 2 + остаток 0

2 / 2 = 1 + остаток 0

1 / 2 = 0 + остаток 1

записываем остатки снизу вверх

159 в 10 СС = 10011111 в 2 СС

159 / 8 = 19 + остаток 7

19 / 8 = 2 + остаток 3

2 / 8 = 0 + остаток 2

записываем остатки снизу вверх

159 в 10 СС = 237 в 8 СС

159 / 16 = 9 + остаток 15

9 / 16 = 0 + остаток 9

В качестве цифр шестнадцатиричной системы счисления используются цифры от 0 до 9 и латинские буквы от A до F.

A = 10 B = 11 C = 12 D = 13 E = 14 F = 15

записываем остатки снизу вверх

159 в 10 СС = 9F в 16 СС