Информатика

Самсон

9 июля, 01:16

Var k, m, day: integer;

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

Begin

Dat[1] : = 2;

Dat[2] : = 2;

Dat[3] : = 3;

Dat[4] : = 3;

Dat[5] : = 2;

Dat[6] : = 2;

Dat[7] : = 5;

Dat[8] : = 5;

Dat[9] : = 6;

Dat[10] : = 6;

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

for k : = 2 to 10 do

if Dat[k] = < m then

begin

m: = Dat[k];

day : = k;

end;

write (day) ;

End.

Ответ равен двум, если нет объясните почему?