Составить алгоритм! составьте алгоритм(в паскале\на алгоритмическом языке), в котором вычисляются четыре величины: средние температуры зимних месяцев, весенних месяцев, летних месяцев, осенних месяцев.

Var   k: array [1..12] of double;   i: byte; begin   for i : = 1 to 12 do   begin     write('enter the ', (new system.datetime(1, i, ('m').replace('1', ''), 'temperature: ');     readln(k[i]);   end;   writeln('1) ', (k[12] + k[1] + k[2]) / 3);   writeln('2) ', (k[3] + k[4] + k[5]) / 3);   writeln('3) ', (k[6] + k[7] + k[8]) / 3);   writeln('4) ', (k[9] + k[10] + k[11]) / 3); end.

Var c,n: array[1..10] of integer; a,i,j,m: integer; begin writeln('введите десять целых чисел'); j: =0; m: =0; for i: = 1 to 10 do       begin       read(a);       if a mod 2 = 0 then             begin             j: =j+1;             c[j]: =a;             end       else             begin             m: =m+1;             n[m]: =a;             end       end; write('массив чётных чисел: '); for j: = 1 to j do       write(c[j],' '); writeln; write('массив нечётных чисел: '); for m: = 1 to m do       write(n[m],' '); end.

1)abs(x*x - 20) / cos(y) + 5*x*sqrt(y) 2) t : =1 if r > 10then r: =r+1; t: =8; a) при r=17 условие выполняется, значит r увеличится на единицу.команды не связаны операторными скобками (begin r: =r+1; t: =8; end),поэтому t: =8; выполнится безусловно.r=18;   t=8; б)при r = 9 условие не выполняется, поэтому значение r останется неизменным.r = 9;   t = 8; 3) for i: = - 10 to - 9 do begin k: =i; write(k); end.цикл for не выполнится ни разу. на экран не будет выведено ничего.цикл "for i: = a to b do" выполняется b-a+1 раз, при условии, что b> =a.в нём значение i меняется от a до b, с каждой итерацией прибавляется единица.цикл "for i: = a downto b do" выполнится a-b+1 раз, при условии, что a> =bв нём значение i тоже меняется от a до b, но с каждой итерацией от i отнимается единица.4)а)vara: integer; beginwrite('введите сумму покупок: '); readln(a); if a< 5 then write('скидка не предоставляется')else if (a> =5)and(a< 10) then write('скидка: 0.5%')        else if (a> =10)and(a< 20) then write('скидка: 2%')                  else write('скидка: 5%')end.б) var a,i: integer; begin for i: = 1 to 10 do begin write('введите сумму покупок: '); readln(a); if a< 5 then writeln('скидка не предоставляется') else if (a> =5)and(a< 10) then writeln('скидка: 0.5%')         else if (a> =10)and(a< 20) then writeln('скидка: 2%')                   else writeln('скидка: 5%') end end.