Var k, m, day: integer; dat: array[1..10] of integer; begin dat[1]: =7; dat[2]: = 1; dat[3]: = 3; dat[4]: = 3; dat[5]: = 2; dat[6]: = 2; dat[7]: = 5; dat[8]: = 5; dat[9]: = 7; dat[10]: = 1; 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.
212
342
Ответы на вопрос:
Женский род кто что программа кого чего программы кому чему программе кого что программа кем чем программой о ком о чем о программе где в программе
Популярно: Информатика
-
batya75775729.11.2020 17:05
-
3743Dasha22.11.2022 21:03
-
mila1711127.11.2020 13:21
-
PavelTop10024.07.2021 17:20
-
stasya1068706.09.2021 08:30
-
Dispensable31.05.2020 23:18
-
enikolaenko8106.01.2023 07:17
-
Грамотейка128.08.2020 06:15
-
33даник74725.03.2022 18:48
-
Peleshok8331.08.2022 06:41