Массив содержит значения температуры, измеренной в 10 точках радиатора охлаждения(°c): 45, 34, 39, 67, 62, 41, 52, 57, 51, 36. определить среднюю температуру ''горячих'' (> 50 °c) участков радиатора.

Uses crt; const       a: array[1..10] of integer=(45, 34, 39, 67, 62, 41, 52, 57, 51, 36); var sr: real;     i,n,sum: integer; begin       for i: =1 to 10 do write(a[i]: 3);       writeln;       for i: =1 to 10 do       if a[i]> 50 then       begin           sum: =sum+a[i];           n: =n+1;       end;       sr: =sum/n;       writeln('среднее значение горячих участков: ',sr); end.

Var     n,  n2,  sum,  pr: integer; begin       read(n);     sum : = (n div 10)+(n  mod  10);     pr : =     (n div 10)*(n mod 10);       n2 : =  (n mod 10)*10  +  (n  div  10);       writeln('сумма  цифр  =  ',  sum);       writeln('прозведение цифр = ', pr);         writeln('полученое  число = ', n2);   end.

Var a,b,c: integer; begin       writeln('введите числа');       readln(a,b,c);       if ((a> b) and (b> c)) or ((c> b)and(b> a)) then writeln('число по середине b=',b);       if  ((a> c) and (c> b)) or ((c> a)and(b> c))  then writeln('число по середине c=',c);       if  ((b> a) and (a> c)) or ((a> b)and(c> a))  then writeln('число по середине a=',a);       readln; end.