В таб­ли­це Dat хра­нят­ся дан­ные из­ме­ре­ний сред­не­су­точ­ной тем­пе­ра­ту­ры за 10 дней в гра­ду­сах \(Dat⟨0⟩ — дан­ные за пер­вый день, Dat⟨1⟩ — за вто­рой и т\. д\.\). Определите, какое число будет на­пе­ча­та­но в ре­зуль­та­те ра­бо­ты сле­ду­ю­щей программы.
Var k, m: integer;
Dat: array

of integer;
Begin
Dat := 2; Dat := 5; Dat := -1; Dat := 0; Dat := 3;
Dat := -2; Dat := -3; Dat := 0; Dat := 4; Dat := 5;
m := 0;
for k := 1 to 10 do
if Dat>=0 then m := m + 1;
writeln\(m\);
End.

• 5
• 7
• 19