Найти сумму всех отрицательных элементов массива С(4,5)- QBasic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
CLS
DIM a(4, 5)
FOR i = 1 TO 4: FOR j = 1 TO 5
  
        PRINT "vvedite a("; i; ","; j; ")";
        INPUT a(i, j)
NEXT: NEXT
FOR i = 1 TO 4: FOR j = 1 TO 5
        IF a(i, j) < 0 THEN s = s + a(i, j)
NEXT: NEXT
CLS
FOR i = 1 TO 4: FOR j = 1 TO 5
        PRINT a(i, j);
NEXT: PRINT: NEXT
PRINT "s = "; s
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
cls
dim a(4,5)
for i = 1 to 5\4 упс нажал не ту кнопку будет так for i = 1 to 4
for j=1 to 5
cls
print "a("; i; ",";j; ")=";
input a(i,j)
next j
next i
for i = 1 to 5\4
for j=1 to 5
if a(i, j)<0 then s=s+a(i,j)
input a(i,j)
next j
next i

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

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

Leave a Comment