Задание

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

var k, day: integer;

Dat: array[1..7] of integer;

begin

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 do

if Dat[k] = 0 then

day := k;

write(day);

end.