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

disel
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"

Тестирование выполнено в программе QB64 ( Скачать )

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

Leave a Comment