В таблице Dat хранятся данные измерений среднесуточной температуры за неделю в градусах \(Dat⟨0⟩ — данные за понедельник, Dat⟨1⟩ — за вторник и т\.д\.\). Определите, что будет напечатано в результате работы следующей программы. Текст программы приведен на пяти языках программирования.
Бейсик
DIM Dat\(7\) AS INTEGER
DIM k, m AS INTEGER
Dat\(1\) = −2: Dat\(2\) = −1
Dat\(3\) = 2: Dat\(4\) = 4
Dat\(5\) = 0: Dat\(6\) = −1
Dat\(7\) = −4
m = 0
FOR k = 1 TO 7
IF Dat\(k\) < 0 THEN
m = m + 1
ENDIF
NEXT k
PRINT m

Python
Dat =

m = 0
for k in range\(7\):
if Dat < 0:
m = m + 1
print \(m\)

Паскаль
Var k, m: integer;
Dat: array

of integer;
Begin
Dat := −2; Dat := −1;
Dat := 2; Dat := 4;
Dat := 0; Dat := −1;
Dat := −4;
m := 0;
for k := 1 to 7 do
if Dat < 0 then
begin
m := m + 1;
end;
writeln\(m\);
End.

Алгоритмический язык
алг
нач
цел­таб Dat

цел k, m
Dat := −2
Dat := −1
Dat := 2
Dat := 4
Dat := 0
Dat := −1
Dat := −4
m := 0
нц для k от 1 до 7
если Dat < 0 то
m := m + 1
все
кц
вывод m
кон

С++
#include <iostream>
using namespace std;
int main\(\) {
int Dat

= {−2, −1, 2, 4, 0, −1, −4};
int m = 0;
for \(int k = 0; k \\lt 7; k\+\+\)
if \(Dat⟨3⟩ \\lt 0\) m = m + 1;
cout << m;
return 0;
}