В 2-х мерной матрице из 3-х строк и 2-х столбцов найти количество столбцов содержащих хотя бы 1 положительный элемент — QBasic(Бейсик)

1
2
3
4
5
6
7
8
9
10
11
12
13
14
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

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

Leave a Comment