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

ответ:

ghjgyjfytfjighjhjhjhjhjhjhjhjhjhjhjhjhjhjhjhj

объяснение: hjhjhjhjhjhjhjhjhj

Abc avb (avb)vc 000    0            0 001    0            1 010    1            1 011      1            1 100    1            1 101    1            1 110    1            1 111    1            1

//pascal var   ez: byte;   z: real; begin   writeln('1 - дециметр, 2 - километр, 3 - метр, 4 - миллиметр, 5 - сантиметр');   write('введите номер единицы измерения: '); readln(ez);   write('введите длинну: '); readln(z);   if ez = 1 then writeln(z/10, ' м');   if ez = 2 then writeln(z*1000, ' м');   if ez = 3 then writeln(z, ' м');   if ez = 4 then writeln(z/1000, ' м');   if ez = 5 then writeln(z/100, ' м');   readln;   end.