Дан массив из N действительных чисел.
Подсчитать, сколько в нем отрицательных, положительных и нулевых элементов.
(в Pascal)

Замените число 10 в задании массива и циклах на нужное число действительных чисел (выделено жирным)

var

 i, a, b, c: integer;

 m: array[1..10] of real;

begin

 for i := 1 to 10 do readln(m[i]);

 for i := 1 to 10 do

 begin

   if m[i] > 0 then a := a + 1;

   if m[i] = 0 then b := b + 1;

   if m[i] < 0 then c := c + 1;

 end;  

 writeln(с, ' ', a, ' ', b);

end.