алг
нач
целтаб Dat[1:11]
цел k, m
Dat[1] := 20; Dat[2] := 25
Dat[3] := 19; Dat[4] := 25
Dat[5] := 26; Dat[6] := 22
Dat[7] := 24; Dat[8] := 28
Dat[9] := 26; Dat[10] := 21
Dat[11] := 27
m := 0
нц для k от 1 до 11
если Dat[k] > 22 то
m := m + 1
все
кц
вывод m
кон