Помогите исправить ошибки и написать блок-схему. Задание: Имеется массив А из N произвольных чисел, среди которых есть положительные, отрицательные и равные нулю. Используя оператор цикла, составить программу, вычислить количество положительных и нулевых и сумму отрицательных. Листинг программы: Program Massiv; Const n=10; Var A:array [1..4] of integer; I, c, c2, c3: integer; Begin For i=1 to N do begin Readln (a[i]); If (a[i]=0 then inc(c) Else if ([ai]

uses crt;