Program naconecto;vark,m,day:integer;Dat:array[1..10] of integer;BEGINDat[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.<br>
выведет 6