Целтаб Dat (1:12) цел к,m,month Dat(1)=5 Dat(2)=5 Dat(3)=6 Dat(4)=8 Dat(5)=8 Dat(6)=5...

Question

Целтаб Dat (1:12)
цел к,m,month
Dat(1)=5
Dat(2)=5
Dat(3)=6
Dat(4)=8
Dat(5)=8
Dat(6)=5
Dat(7)=3
Dat(8)=7
Dat(9)=4
Dat(10)=4
Dat(11)=8
Dat(12)=7
month:=1. m=Dat(1)
нц для к от 2 до 12
если Dat(к)>=m то
m:=Dat(k) month:=k

Answer 1

Ищется самый большой или последний равный большому элементу, в данном случае значение чего-то каждого месяца.
m будет равно 8, а
month будет равно 11