Задан случайно массив из 20 целых чисел в интервале от -100 до 100. Подсчитать количество...

Question

Задан случайно массив из 20 целых чисел в интервале от -100 до 100. Подсчитать количество положительных, отрицательных и нулевых элементов

Answer 1

Begin
for i:=1 to 20 then begin
                             a[i]:=random(100)-100;
                             if (a[i]<0) then inc(k);<br>                             if (a[i]=0) then inc(b);
                             if (a[i]>0) then inc(c);
                             end;
writeln("Кол-во положительных чисел: ", c);
writeln("Количество отрицательных чисел:",k);
writeln("Количество нулевых:", b);