Дан фрагмент программы.после выполнения фрагмента программы определите значение s. в ответ запишите только число. x: =256 y: =47 y: =x-3*y то s : =(x^2-y/5)*3 иначе s : =(y^3-x/2)*4

Решение для то и иначе: x: =256; y: =47; y: =x-3*y=256-3*47=256-141=115;   то  s: =(x^2-y/5)*3=(256^2-115/5)*3=196539   иначе s: =(y^3-x/2)*4=(115^3-256/2)*4=6082988

Const n=20; var a: array[1..n]of integer; p,s: real; i: integer; begin   p: =1; {начальное значение р, чтобы при умножении произведение не было =0}       for i: =1 to n do             begin               a[i]: =random(20); {массив заполняется случайными числами [0; 20)}                 write(a[i]: 4); {массив выводится на экран}                       if i< =10 then {если номер элемента < =10}                         s: =s+a[i]     {то считаем сумму элементов}                       else                         p: =p*a[i]; {иначе, т.е если номер элемента > 10 считаем произв  ]             end;     writeln;   writeln('сумма =  ',s: 4: 0,'   p=  ',p: 4: 0)     {выводим сумму и произвед на экран}   ; writeln('среднее =  ',(p+s)/2);   {выводим среднее} end.

Const n=10; var a: array[1..n]of integer; i,j,buf: integer; begin     for i: =1 to n do           begin               a[i]: =random(100);               write(a[i]: 4);           end; for i: =1 to n-1 do     for j: =i+1 to n do           if (a[i]mod 10+a[i]div 10)> (a[j]mod 10+a[j]div 10)then                 begin                     buf: =a[i];                     a[i]: =a[j];                     a[j]: =buf;                 end; writeln; writeln('new: '); for i: =1 to n do     write(a[i]: 4); end.