;указаны ключевые элементы программы
;Язык - забытый паскаль.
;Поэтому нефиг придираццо.

var a: array[0..N];

{
"Ух ты, какие сиськи!" ; 0
"Ну американцы и тупые..." ; 1
"А вот эта тачка ничего..."
"Так, надо покурить."
"Блин, как неохота на работу..."
"По пивку!"
"А фигле тут загоняться?"
"Ща зажжом!"
"Круто!"
"" ; N
}

begin
while state = ALIVE do begin
think(a[RANDOM]);
hear(something);
if compare(something, a[N-1]) = 1 then a[N]:=something;
end;
end. [Ответ]

Искусственный интеллект должен думать не по рандому)) [Ответ]

Ну тады надо внешние позывы учесть ) Т.е. это уже вопрос к тому, кто делает периферию [Ответ]

Вот этот ИИ покруче будет. Жаль, написано не мной.
Изображения
[Ответ]

Select85, а вообще, можно спрашивать пользователя о делах, настроении и т.д., вылавливать слова "хреново", "нормально" и "зашибись", а затем выдавать случайные фразы из массивов Zashibis[100], Norm[100] и Pizdecimal[100]. Будет гораздо правдоподобнее.
Например: - Прив! Как дела на работе?
- Да всё зашибись!
- Мне бы так... А как на личном фронте?
- Хреново...
- А чё так? (ссылка на сайт знакомств)
... и т.д. [Ответ]

Ды эт-т я и сам бывает, общаюсь при посредстве спинного мозга, без участия второго...
Я хотел, шоб интеллект был самодостаточен. [Ответ]

Select85, тогда только нейронная сеть широкого профиля. [Ответ]

Настоящий искусственный интеллект не станет проходить тесты на человечность - он вместо этого пошлет вас подальше ))
Поэтому наверняка ИИ уже оч. давно существует... [Ответ]