Задание 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 все кц
Задание 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
Не нашли ответ?
Похожие вопросы