Помогите пожалуйста!!! var k, m, day: integer; Dat: array[1..10] of integer; begin...

Question

Помогите пожалуйста!!! var k, m, day: integer; Dat: array[1..10] of integer; begin Dat[1]:=7; Dat[2]:= 2; Dat[3]:= 3; Dat[4]:= 3; Dat[5]:= 4; Dat[6]:= 4; Dat[7]:= 5; Dat[8]:= 5; Dat[9]:= 7; Dat[10]:= 6; 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.

Answer 1

9,

т.к. day:= k выполнятеся одни раз в случае Dat[9]:= 7

Comments

Подскажите, цикл начинается k=2?

---

да. for k:= 2 to 10 do begin

---

Скажите пожалуйста, первым сравнивается 2 и 7?

---

да. Dat[1]:=7, следовательно m=7.