Var k, m, day: integer; dat: array[1..7] of integer; - вопрос №40282171717 от незнайка3333333333 20.10.2021 19:51

Question

Информатика: Var k, m, day: integer; dat: array[1..7] of integer; begin dat[1]: =7; dat[2]: =9; dat[3]: =10; dat[4]: =8; dat[5]: =6; dat[6]: =7; dat[7]: =6; day: = 1; m: =dat[1]; for k: =2 to 7 do begin if dat[k] m then begin m: =dat [k]; day: =k end end write(day); end.

незнайка3333333333 · Answer

В результате выполнения данной программы будет напечатано число 5...

Var k, m, day: integer; dat: array[1..7] of integer; begin dat[1]: =7; dat[2]: =9; dat[3]: =10; dat[4]: =8; dat[5]: =6; dat[6]: =7; dat[7]: =6; day: = 1; m: =dat[1]; for k: =2 to 7 do begin if dat[k] < m then begin m: =dat [k]; day: =k end end write(day); end.