Вычислить сумму и количество положительных, сумму и количество отрицательных элементов массива А, состоящего из 30 элементов — Basic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
14
REM
CLS
DIM A(30)
FOR i=1 TO 30
PRINT "Введите "; i;" элемент массива"
INPUT A(i)
NEXT i
FOR i=1 TO 30
IF A(i) < 0 THEN k=k+1: m=m+A(i)
IF A(i) > 0 THEN t=t+1: s=s+A(i)
NEXT i
PRINT "Сумма положительных элементов="; s; "Количество положительных элементов"; t
PRINT "Сумма отрицательных элементов"; m; "Количество отрицательных элементов"; k
END

Похожие записи/страницы:

Leave a Comment