Дан одномерный массив разномерностью в К элементов Найти количество нечетных элементов массива, напечатать на экране номера всех отрицательных элементов массива — QBasic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
INPUT "vvedite kol-vo elementov ", k
DIM a(k)
FOR i = 1 TO k
    INPUT "vvedite element ", a(i)
NEXT
PRINT "massiv"
FOR i = 1 TO k
    PRINT a(i);
NEXT
PRINT
PRINT "nomera otricatelnyh elementov:"
FOR i = 1 TO k
    IF a(i) < 0 THEN PRINT i;
    IF a(i) MOD 2 <> 0 THEN kol = kol + 1
NEXT
PRINT
PRINT "kolichestvo nechetnyh elementov="; kol

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

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

Leave a Comment