Определить сумму отрицательных чисел, расположенных над главной диагональю - VB

Формулировка задачи:

Определить сумму отрицательных чисел, расположенных над главной диагональю С(5,5).

Решение задачи: «Определить сумму отрицательных чисел, расположенных над главной диагональю»

textual
                            Листинг программы 
                        

                            FOR i = 1 TO 4
FOR j = i + 1 TO 5
   If C(i, j) < 0 THEN S = S + C(i, j)
NEXT
NEXT
 
If S = 0 THEN
   PRINT "Отрицательных чисел нет"
ELSE
   PRINT "Сумма отрицательных чисел ="; S
END IF
                        

Оцени полезность:

7 голосов , оценка 4.286 из 5

Похожие ответы