В таб­ли­це Dat хра­нят­ся дан­ные еже­днев­ных из­ме­ре­ний ко­ли­че­ства осад­ков за не­де­лю в мил­ли­мет­рах \(Dat⟨0⟩ – дан­ные за понедельник, Dat⟨1⟩ – за втор­ник и т\.д\.\). Определите, что будет на­пе­ча­та­но в ре­зуль­та­те вы­пол­не­ния сле­ду­ю­ще­го алгоритма, за­пи­сан­но­го на трёх язы­ках программирования.

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

цел k, day
Dat := 14; Dat := 10
Dat := 0; Dat := 15
Dat := 0; Dat := 15
Dat := 10
day := 0;
нц для k от 1 до 7
если Dat = 0 то
day := k
все
кц
вывод day
кон

Бейсик
DIM Dat\(7\) AS INTEGER
Dat\(1\) = 14: Dat\(2\) = 10
Dat\(3\) = 0: Dat\(4\) = 15
Dat\(5\) = 0: Dat\(6\) = 15
Dat\(7\) = 10
day = 0
FOR k = 1 TO 7
IF Dat\(k\) = 0 THEN
day=k
ENDIF
NEXT k
PRINT day
END

Паскаль
var k, day: integer;
Dat: array

of integer;
begin
Dat := 14; Dat := 10;
Dat := 0; Dat := 15;
Dat := 0; Dat := 15;
Dat := 10;
day := 0;
for k := 1 to 7 do
if Dat = 0 then
day := k;
write\(day\);
end.