В одномерном массиве из N чисел вывести на экран количество положительных и отрицательных элементов.

1Ø CLS
2Ø REM Определяет количество положительных и отрицательных элементов массива
3Ø INPUT “Введите количество элементов в массиве N=”; N
4Ø DIM A(N)
5Ø REM Ввод элементов массива
6Ø FOR I=1 TO N
7Ø PRINT “Номер”; I;
8Ø INPUT “Значение элемента массива =”; A(I)
9Ø NEXT I
11Ø REM Нахождение количества положительных и отрицательных элементов массива
12Ø k=Ø : S=Ø
13Ø FOR I=1 TO N
14Ø IF A(I)>0 THEN K=K+1
15Ø IF A(I)<0 THEN S=S+1
16Ø NEXT I
17Ø REM Вывод результатов
18Ø PRINT “Количество положительных элементов =”; K
19Ø PRINT “Количество отрицательных элементов =”; S
2ØØ END

Почему не работает в Librty BASIC ?
Как правильно написать? и можно блок схему

Ответа на этот вопрос пока нет. Попробуйте найти его через форму поиска.

Вас заинтересует