Составить блок-схему алгоритма и программу на алгоритмическом языке программирования БЕЙСИК обработки одномерного массива

Программа:
10 CLS
20 REM Программа вычисляет количество положительных и отрицательных чисел
30 INPUT "Введите количество элементов в массиве N="; N
40 DIM A(N)
50 REM Ввод исходных данных
60 FOR I = 1 TO N
70 PRINT "Номер элемента "; I
80 INPUT "Значение "; A(I)
90 NEXT I
100 REM Этап вычислений
110 P = 0
120 O = 0
130 FOR I = 1 TO N
140 IF A(I) > 0 THEN P = P + 1
150 IF A(I) < 0 THEN O = O + 1
160 NEXT I
170 REM Вывод результатов
180 PRINT "Количество положительных чисел - "; P
190 PRINT "Количество отрицательных чисел - "; O
200 END
Блок-схема алгоритма:
-213360172085Во втором цикле подсчитывается количество положительных и отрицательных элементов массива
В первом цикле присваиваются значения элементов массива
да
да
нет
нет
Начало
Конец
I = 1, N
A(N)
Номер, I
N
A(I)
P=0
I = 1, N
A(I)>0
P=P+1
Количество положительных чисел , P
Количество отрицательных чисел , O
O=0
A(I)<0
O=O+1
Во втором цикле подсчитывается количество положительных и отрицательных элементов массива
В первом цикле присваиваются значения элементов массива
да
да
нет
нет
Начало
Конец
I = 1, N
A(N)
Номер, I
N
A(I)
P=0
I = 1, N
A(I)>0
P=P+1
Количество положительных чисел , P
Количество отрицательных чисел , O
O=0
A(I)<0
O=O+1