Вычислить значения обработки массива var k, m, day: integer; dat: of integer; begin dat[1] : = 2; dat[2] : = 2; dat[3] : = 3; dat[4] : = 3; dat[5] : = 4; dat[6] : = 4; 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.
230
476
Ответы на вопрос:
Впеременной day определяется номер последнего элемента массива dat, который равен первому элементу ⇒ значение переменной day после выполнения цикла = 2
Популярно: Информатика
-
Anya345689009.12.2021 23:22
-
Людочка678901.01.2021 06:55
-
ivanvlasuyk8028.11.2020 06:52
-
osama95w03.06.2020 14:03
-
Iamjav22.01.2021 18:49
-
Плиззззззззззззззззз28.09.2022 13:53
-
HiКАK22.02.2022 17:58
-
Ромзэс120.12.2021 06:03
-
Ryfili02.10.2022 17:05
-
mixfix72828.06.2021 03:19