Задание

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

var k, m, day: integer;

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

begin

Dat[1]:=7; Dat [2]:=1;

Dat[3]:=3; Dat [4]:=3;

Dat[5]:=2; Dat [6]:=2;

Dat[7]:=5; Dat [8]:=5;

Dat[9]:=7; Dat[10]:=1;

day:=1; m:=Dat[1];

for k:=2 to 10 do begin

if Dat[k] < m then

begin

m:=Dat[k];

day:=k;

end;

end;

write(day);

end.