Поделитесь своими знаниями, ответьте на вопрос:
В таблице Dat хранятся данные измерений среднесуточной температуры за неделю в градусах (Dat[1] – данные за понедельник, Dat[2] – за вторник и т.д. Определите, что будет напечатано в результате работы следующей программы. Var k, m: integer; Dat: array[1..7] of integer; Begin m:=0; 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 do begin if Dat[k] >20 then m:=m+1; end write(m); End.