Найти количество столбцов содержащих хотя бы 1 положительный элемент

Категория: Basic

2011-11-02 13:13:53

Дана матрица из трех строк и двух столбцов.

code: #basic

DIM a(3,2)
FOR i=1 TO 3
FOR j=1 TO 2
INPUT a(i,j)
NEXT
NEXT
FOR j=1 TO 2
f=0 
 FOR i=1 TO 3
  IF  a(i,j)>0 THEN f=1
 NEXT
s=s+f
NEXT
PRINT s

автор: кот Бегемот

Поделиться:

Sample Code