8. реализованный при компьютерных технологий и основанный на знаниях программный продукт, главной функцией которого является способность предложить обоснованную рекомендацию по путям решения проблемы или сформулировать само решение это а) экспертная система б) нейронная сеть в) система, основанная на прецедентах г) система, основанная на генетических алгоритмах

А)  экспертная система. больше всего подходит.

Const       handsfree = false; var       a: array[1..100] of real;       i, n: integer;       sum, product, harmonic: real; begin       {ввод массива}       if handsfree then               n : = random(20) + 5       else begin               write('n = ');               readln(n);       end;             writeln('данные массива: ');       for i : = 1 to n do       begin               if handsfree then begin                       a[i] : = random(100) - 50;                       write(a[i], ' ');               end               else readln(a[i]);       end;       writeln();                   {подсчет суммы и произведения и агригатов}       sum : = 0;       for i : = 1 to n do               if abs(a[i]) < = 5 then                       sum : = sum + a[i];       writeln('sum = ', sum); end.

Var n,i,s,p: integer; begin write('n = '); readln(n); //а s: =0; p: =1; for i: =1 to n do   begin   s: =s+(2*i-1); p: =p*(2*i-1);   end; writeln('s = ',s,' p = ',p); //б s: =0; p: =1; for i: =1 to n do   begin   s: =s+2*i; p: =p*(2*i);   end; writeln('s = ',s,' p = ',p); //в s: =0; p: =1; for i: =1 to n do   begin   s: =s+3*i; p: =p*(3*i);   end; writeln('s = ',s,' p = ',p); //в s: =0; p: =1; for i: =1 to n do   begin   s: =s+4*i; p: =p*(4*i);   end; writeln('s = ',s,' p = ',p); end. пример: n = 4 s = 16 p = 105 s = 20 p = 384 s = 30 p = 1944 s = 40 p = 6144