В массиве В ( 3,3 ) Найти сумму положительных элементов 2-й строк- QBasic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
DIM a(1 TO 3,1 TO 3) AS INTEGER
RANDOMIZE TIMER
FOR i=1 TO 3
FOR j=1 TO 3
a(i,j)=RND*45-22
PRINT a(i,j)
NEXT j
NEXT i
FOR j=1 TO 3
IF a(2,j)>0 THEN s=s+a(2,j)
NEXT j
PRINT "s=";s
END

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

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

Leave a Comment