Помогите исправить ошибки и написать блок-схему. Задание: Имеется массив А из N произвольных чисел, среди которых есть положительные,отрицательные и равные нулю. Используя оператор цикла, составить программу, вычислить количество положительных и нулевых и сумму отрицательных.
uses crt; var i,d,o,n,m:integer; a:array[1..100] of integer; begin readln(n); randomize; for i:=1 to n do a:=random(101)-50; for i:=1 to n do begin if a < 0 then o:=o+a else inc(d); if a = 0 then inc(m); end; for i:=1 to n do write(a,' '); writeln; writeln('null = ',m); writeln('otr = ',o); writeln('pol = ',d); readln; end.
