7целтаб dat[1: 7] цел k, m dat[1]: =15; dat[2]: =18 dat[3]: =22; dat[4]: =20 dat[5]: =23; dat[6]: =24 dat[7]: =20 m: = 0 нц для k от 1 до 7 если dat[k] > 20 то m: =m+1 все кц

(QBasic)
CLS
DIM dat(7)
dat(1) = 15
dat(2) = 18
dat(3) = 22
dat(4) = 20
dat(5) = 23
dat(6) = 24
dat(7) = 20
FOR k = 1 TO 7
IF dat(k) > 20 THEN
m = m + 1
END IF
NEXT

m будет равно 3