В таблице Dat хранятся данные измерений среднесуточной температуры за неделю в градусах (Dat[l] — данные за понедельник, Dat[2]

Алгоритмический язык
алг
нач
целтаб Dat[1..7]
цел m, к
Dat[1]:=12; Dat[2]:=14
Dat[3] :=13; Dat[4] :=15
Dat[5] :=15; Dat [6]:=12
Dat[7] : =16
m: =0
нц для к от 1 до 7
если Dat[к]>14 то
m:=m+l
все
кц
вывод m
кон

Паскаль
var: Dat: array[1..7] of integer;
m, k: integet;
BEGIN
Dat[1]:=12; Dat[2]:=14;
Dat[3] :=13; Dat[4] :=15;
Dat[5] :=15; Dat [6]:=12;
Dat[7] : =16
m: =0;
for k:=1 to 7 do
if Dat[k]>14 then
m:=m+1;
writeln(m);
END.
Ответ: 3