Question

В таблице Dat хранятся данные ежедневных измерений температуры воздуха (Dat[1] – температура в понедельник, Dat[2] – во вторник и т. д.). Определите, что будет напечатано в результате выполнения следующего алгоритма, записанного на трёх языках программирования. Алгоритмический язык Бейсик Паскаль
алг
нач
целтаб Dat[1:7]
цел k, day
Dat[1] := 9; Dat[2] := 11
Dat[3] := 10; Dat[4] := 13
Dat[5] := 8; Dat[6] := 5
Dat[7] := 11
day := 0
нц для k от 1 до 7
если Dat[k] <= 10 то
day := day+1
все
кц
вывод day
кон DIM Dat(7) AS INTEGER
DIM k, day AS INTEGER
Dat(1) = 9: Dat(2) = 11
Dat(3) = 10: Dat(4) = 13
Dat(5) = 8: Dat(6) = 5
Dat(7) = 11
day = 0
FOR k = 1 TO 7
IF Dat(k) <= 10 THEN
day = day+1
END IF
NEXT k
PRINT day
END var
Dat: array[1..7] of integer;
k, day: integer;
begin
Dat[1] := 9; Dat[2] := 11;
Dat[3] := 10; Dat[4] := 13;
Dat[5] := 8; Dat[6] := 5;
Dat[7] := 11;
day := 0;
for k := 1 to 7 do begin
if Dat[k] <= 10 then
day := day+1;
end;
writeln(day);
end.