GW BASIC.

GW BASIC.

Задан двумерный массив состоящий из 24 элементов. Подсчитать кол-во отрицательных и нулевых элементов, а также сумму положительных.

GW BASIC.: 1 комментарий

  1. List
    10 OPTION BASE 1
    20 DATA 6,8,2,-1,11,0,7,12,-4,3,7,-4
    30 DATA -9,3,-11,0,6,-2,8,13,1,4,0,10
    40 DIM A%(2,12)
    50 KN=0: KZ=0: KP=0
    60 FOR I%=1 TO 2
    70 FOR J%=1 TO 12
    80 READ A%(I%,J%)
    90 IF A%(I%,J%)<0 THEN KN=KN+1 ELSE IF A%(I%,J%)=0 THEN KZ=KZ+1 ELSE KP=KP+1
    100 NEXT J%
    110 NEXT I%
    120 PRINT «>0: «;KN,»=0: «;KZ,»>0: «;KP
    130 END
    Ok
    run
    >0:  6        =0:  3        >0:  15
    Ok

Обсуждение закрыто.