Алгоритм по информатике- y=a+b и разделить на с

// pascalabc.net 3.0, сборка 1052 const   k=5;   mint=-60;   maxt=60;   umax=4.8; var   ut,s,meant: real;   ring: array[1..k] of real;   i,p: byte; begin   { модерируем работу за 25 с }   randomize;   s: =0;   { выход на рабочий режим }   for i: =1 to k do begin       ut: =0.3*random+3; { колебания напряжения от 3 до 3.3в }       ring[i]: =mint+(maxt-mint)*ut/umax;       s: =s+ring[i]   end;   meant: =s/k;   writeln('t=',k: 2,'c, средняя температура= ',meant: 6: 2);   { рабочий режим }   for i: =k+1 to 25 do begin       ut: =0.3*random+3; { колебания напряжения от 3 до 3.3в }       p: =i mod k; if p=0 then p: =k;       s: =s-ring[p];       ring[p]: =mint+(maxt-mint)*ut/umax;       s: =s+ring[p];       meant: =s/k;       writeln('t=',i: 2,'c, средняя температура= ',meant: 6: 2);   end end.   тестовое решение: t= 5c, средняя температура=  19.61 t= 6c, средняя температура=  20.35 t= 7c, средняя температура=  20.60 t= 8c, средняя температура=  19.68 t= 9c, средняя температура=  20.03 t=10c, средняя температура=  19.17 t=11c, средняя температура=  18.06 t=12c, средняя температура=  17.16 t=13c, средняя температура=  18.15 t=14c, средняя температура=  18.01 t=15c, средняя температура=  18.25 t=16c, средняя температура=  19.44 t=17c, средняя температура=  19.71 t=18c, средняя температура=  18.80 t=19c, средняя температура=  18.54 t=20c, средняя температура=  19.36 t=21c, средняя температура=  19.57 t=22c, средняя температура=  20.20 t=23c, средняя температура=  20.65 t=24c, средняя температура=  20.97 t=25c, средняя температура=  20.46

// pascalabc.net 3.0, сборка 1052 const   nn=100; var   a: array[1..nn] of integer;   p,s: longint;   i,n: byte; begin   write('введите количество элементов в массиве: '); read(n);   writeln('вводите целочисленные элементы массива через пробел');   s: =0; p: =1;   for i: =1 to n do begin       read(a[i]);       if i mod 2 = 0 then p: =p*a[i];       s: =s+a[i]   end;   writeln('произведение элементов с четными номерами: ',p);   writeln('среднее арифметическое элементов: ',s/n) end. тестовое решение: введите количество элементов в массиве: 10 вводите целочисленные элементы массива через пробел -4 6 11 8 12 21 7 13 9 -15 произведение элементов с четными номерами: -196560 среднее арифметическое элементов: 6.8