Дан массив действительных чисел, размерность которого N. Подсчитать, сколько в…

Program Mimoze; Const N=10; Var p, o, z, i: Integer; A: Array [0… N — 1] of Integer; BeginWriteLn ('Введите через пробел ', N, ' чисел'); For i: =0 To N — 1 DoRead (A[i]); For i: =0 To N — 1 DoBeginIf A[i] < 0 ThenBeginp: =p+1; z: =z+1; EndElse If A[i] > 0 ThenBegino: =o+1; z: =z+1; End; End; WriteLn ('Положительных: ', p); WriteLn ('Отрицательных: ', o); WriteLn ('Ненулевых: ', z); ReadLn; End.