Задание 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