Дан массив действительных чисел, размерностью n. Подсчитать сколько в нём отрицательных, положительных и нулевых элементов.
program zadacha5;
const
n = 20; {можно менять }
var
pol, otr, nul : integer;
mass : array[1..n] of integer;
i : integer;
begin
randomize; {запускаем генератор случ чисел, чтоб в ручную не вводить}
{заполняем массив}
for i := 1 to n do
begin
mass[i] := random(n*2) - n; { чтоб были положительные и отрицательные}
write(mass[i], ' '); { выводим результат}
end;
{ считаем всё что нужно}
pol := 0; otr := 0; nul := 0;
for i := 1 to n do
begin
if mass[i] < 0 then inc(otr);
if mass[i] = 0 then inc(nul);
if mass[i] > 0 then inc(pol);
end;
writeln;
writeln('В массиве размерностью ', n);
writeln('Кол-во положительных эл-ов = ', pol);
writeln('Кол-во нулевых эл-ов = ', nul);
writeln('Кол-во отрицательных эл-ов = ', otr);
readln;
end.