Дан массив из 20 случайных чисел, со значениями от -30 до 30, подсчитайте кол-во положительных и отрицательных чисел?

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

я могу написать код на с

#include < iostream> #include < time.h> #include < stdlib.h> int main() {       srand(time(null));       int n;       int *a;       int n_max;       int n_index;       std: : cout < < "n: ";       std: : cin > > n;       std: : cout < < "source\n";       a = new int[n];             for (int i = 0; i< n; i++)       {             *(a + i) = rand() % 200 *(-1);                   std: : cout < < *(a + i) < < " ";       }       std: : cout < < "\n";       n_max = a[0];       for (int j = 0; j < n; j++)       {             if (*(a + j)> n_max)             {                   n_max = *(a + j);                   n_index = j;             }       }       std: : cout < < "\nmax: " < < n_max< < "\nindex: "< < n_index+1< < std: : endl;       return 0; }

Const n =5; type   mas=array[1..n,1..n]of integer; var   a,b: mas;   i,j,sum: integer; begin randomize; sum: =0;   for i: =1 to n do           for j: =1 to n do               a[i,j]: =random(30);   for i: =1 to n do           for j: =1 to n do               b[i,j]: =random(30);   writeln('первый массив: ');   for i: =1 to n do       begin           for j: =1 to n do               write(a[i,j]: 4);       writeln;       end;   writeln;   writeln('второй массив: ');   for i: =1 to n do       begin           for j: =1 to n do               write(b[i,j]: 4);       writeln;       end;   writeln('разность двух массивов a-b: ');   for i: =1 to n do       begin           for j: =1 to n do               begin                   sum: =sum+a[i,j]+b[i,j];                   write(a[i,j]-b[i,j]: 4);               end;               writeln;       end;       writeln('сумма элементов двух массивов: ',sum); end.