Составить алгоритм для искусственного интеллекта, минимум 4-5 уточняющих во

program xxx;

   var i, n : integer;

                     s : real;

                   a : array [1..20] of real;

begin

 writeln('введите размерность массива n=');

 readln(n);

 write('введите элементы массива а: ');

 for i: =1 to n do

       readln(a[i]);

 writeln('исходный массив а: ');

 for i: =1 to n do

       writeln(a[i]);

 s: =0;

 for i: =1 to n do

     if a[i] mod 2 = 0 then s: =s+a[i];

 writeln('сумма четных элементов =', s);

 readln

end.

Информационные ресурсы и сервисы компьютерных сетей
Средства обеспечения определенных информационных услуг для пользователей сети принято называть службами Интернета. Кроме понятия «служба» существует еще понятие «сервис». Часто разницу между ними довольно трудно уловить. Число различных служб и сервисов в сети непрерывно растет. Опишем лишь некоторые самые известные службы, разделив их на коммуникационные и информационные.

Еще раз обратим внимание на то, что все службы Интернета основаны на взаимодействии двух программ. Одна из этих программ - сервер, а другая программа - клиент. Они взаимодействуют по определённым правилам, заданным в протоколах

Протокол службы - технический стандарт (система правил), определяющий технические особенности взаимодействия почтовых серверов друг с другом и с почтовым клиентом.

Если протокол ТСР/IР называется базовым протоколом Интернета, то протоколы служб можно назвать прикладными протоколами (иногда их называют протоколами второго уровня).

Поясним смысл еще двух терминов, которые будут дальше использоваться. Режим on-line — это режим работы пользователя в состоянии подключения к какому-либо серверу Сети. Состояние отключенной связи называется режимом оff-line. Аналогия: общение по телефону всегда происходит в режиме on-line. При отправлении телеграммы вы заполняете бланк в режиме оff-line, затем телеграфист в режиме on-line передает телеграмму по линии связи; а затем получатель читает телеграмму в режиме оff-line.

Program egor_sasha; var num_eg, num_sash,pri,pri1: real; var mes_eg,mes_sash: real; beginwriteln('numer egora'); readln(num_eg); writeln('numer sashi'); readln(num_sash); writeln('mesto egora (verkh=1,vniz=0)'); readln(mes_eg); writeln('mesto sashi (verkh=1,vniz=0)'); readln(mes_sash); pri: =num_sash+1; pri1: =num_eg+1; if num_eg=pri then    writeln('yes')  else writeln('no'); if num_sash=pri1 then    writeln('yes')  else writeln('no'); if mes_eg=1 then    writeln('egor-high')else  writeln('egor-low'); if mes_sash=1 then    writeln('sasha-high')else  writeln('sasha-low'); end.