Решить в pascal королева арифметики решила озеленить свою столицу и заодно сосчитать жителей. для этого она приказала всем посадить вокруг каждого дома столько деревьев, сколько в этом доме живёт членов семей, а также их слуг. определить номер самого населённого дома (количество деревьев, растущих возле каждого дома записано в виде последовательности, заканчивающейся числом ноль

Var a,b,n,k: integer; begin a: =0; read(n); for k : =1 to n do begin while b< > 0 do begin read(b); if a< b then a: =b; end; end; end.

Создаешь цикл for , который записывает номера array[ i ].numer;   в отдельный массив . затем массив  прогоняешь массив циклом for и ищешь максимум (не забудь добавить переменную-счетчик что б он выводил не первый максимум, а только тогда, когда пройдет весь массив). затем выведенное число заменяешь на 0   . тебе понадобится еще одна переменная-счетчик, что бы после того как он выведет тебе все номера, он не начал выводить нули.костыльно конечно , но этот способ работает. успехов!

За частую искусственный интеллект построен на определенной математической модели с некоторого языка программирования(информатика). Изначально ИИ ничего не умеет и для этого его нужно чему то обучить. Процесс обучения называется - машинным обучением. Машинное обучение происходит на уровне физики так как это наука про самое элементарное и так же можно описать большинство физических процессов. Сама биология и физика понадобиться уже в дальнейшем для определенного рода ИИ. Так как поведение ИИ зависит от его предназначения. К примеру можно взять ИИ для распознавания онкопатологий по результатам комп'ютерной томографии (Его нужно будет обучать на уровне биологии, что бы он более качественно и правильно распознавал опухоли) в зависимости от глубины проникновения рентгеновских лучей в аппарате.