Вычислить сумму и количество положительных и отрицательных элементов массива, установить каких (отрицательных или положительных) элементов больше- Basic(Бейсик)

disel

Обработать на компе одномерный массив D(N): вычислить сумму и количество положительных и отрицательных элементов массива, установить каких (отрицательных или положительных) элементов больше. Размер исходного массива N ввести с клавиатуры. Вывести на экран монитора все результаты и исходный массив. Проверить правильность выполнения программы с помощью тестового варианта (N=4)

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
INPUT "vvedite razmer massiva ",n
DIM d(n)
FOR i=1 TO n
INPUT "vvedite element ",d(i)
NEXT
PRINT "massiv"
FOR i=1 TO n
PRINT d(i);
NEXT
PRINT
FOR i=1 TO n
IF d(i)>0 THEN kp=kp+1:sp=sp+d(i)
IF d(i)<0 THEN ko=ko+1:so=so+d(i)
NEXT
PRINT"popojitelnyh";kp
PRINT"otricatelnyh";ko
PRINT"summa polojitelnih=";sp
PRINT"summa otricatelnyh=";so
IF kp>ko THEN PRINT"polojitelnyh bolche" ELSE IF ko>kp THEN PRINT "otricatelnyh bolshe" ELSE PRINT"odinakovo"

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

Leave a Comment