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.
133
348
Ответы на вопрос:
Популярно: Информатика
-
ainurka88akgmailcom04.08.2021 07:40
-
MaFizLike22.05.2021 04:35
-
aruzhan7klass05.06.2022 22:30
-
Daniil6class26.01.2023 12:05
-
makhero11115.01.2020 16:46
-
dashaegirova18.01.2020 14:16
-
Мигает33307.03.2023 01:26
-
tunekoff22826.02.2022 11:52
-
curlyprettygirl26.04.2023 12:39
-
серый38617.02.2022 17:57