ИНФОРМАТИКА приведите реальные примеры использования искуссвенного интеллекта в различных сферах( в медцине, в промышленности, в обществе, в образовании, в игровой индустрии) и запишите алгоритм его функционирования.

   441(5)
+ 122(5)

 1113(5)

Объяснение, как складывать числа в системе по основанию n (у нас n=5)
Сложение производим "в столбик" в привычной нам десятичной системе счисления и начинаем с младших (правых) разрядов.
2+1=3. Если сумма меньше n (в данном случае меньше, т.к. 3<5), то записываем её "как есть" и переходим к следующему разряду.
4+2=6. Тут сумма больше n (6>5), поэтому вычитаем из этой суммы n (т.е. 5) и получаем 6-5=1. Эту единичку мы записываем, а за то, что вычли пятерку (т.е. n), пишем "один в уме", т.е. +1 переходит в следующий разряд.
4+1+1=6 (4+1 было, и еще +1 от переноса). Снова 6>5, как описано выше, снова 6-5=1, снова 1 пишем и +1 в следующий разряд.
+1 и даст 1, поскольку складывать больше нечего.
ответ: 1113

1) program exec;

var a:array[1..20] of integer;

var p,i:integer;

begin

randomize;

for i:=1 to 20 do begin

a[i]:=random(50);

writeln (a[i]);

if (a[i] mod 2<>0) then p:=p+1;

end;

if (p>0) then writeln ('Присутствуют нечётные элементы')

else writeln ('Не присутствуют нечётные элементы');

end.

2) program exec;

var a:array[1..20] of integer;

var p,i:integer;

begin

randomize;

for i:=1 to 20 do begin

a[i]:=random(50);

writeln (a[i]);

if (a[i] mod 2=0) then a[i]:=a[i]+1

else a[i]:=a[i]*2;

end;

writeln ('---'); // разделение двух массивов

for i:=1 to 20 do writeln (a[i]);

end.