Массивы

[Настька 123]

Дан массив А(50), заполненный случайными вещественными значениями, заполнить массив N значениями функции, вычисленными следующим образом:
Система:
ni = +1, x>0
0, x = 0
-1, x<0

[Inv1s]

Язык какой?)

Вот на С

for(int i = 0; i < 50; i++)
   if(A[i] > 0) N[i] = +1;
   else if(A[i] < 0) N[i] = -1;
         else N[i] = 0

[Настька 123]

На языке Паскале