В таблице 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.

mardon1    2   13.04.2020 06:01    6