Const n=5; var m: array[1..n] of byte; function itog(): real; var i,max,min,s: byte; begin s: =m[1]; max: =s; min: =s; for i: =2 to n do begin s: =s+m[i]; if max< m[i] then max: =m[i] else if min> m[i] then min: =m[i] end; s: =s-max-min; itog: =s/(n-2) end; var i: byte; begin writeln('введите экспертные оценки'); for i: =1 to n do read(m[i]); writeln('итоговый равен ',itog: 4: 2) end. тестовое решение: введите экспертные оценки 4 4 5 3 5 итоговый равен 4.33
Дружинин
24.09.2020
Var i: integer; f,n: longint; fr: real; begin write('n='); read(n); if n< =12 then begin f: =1; for i: =2 to n do f: =f*i; writeln('f=',f) end else begin fr: =1; for i: =2 to n do fr: =fr*i; writeln('f=',fr) end end. тестовые решения: n=12 f=479001600 n=13 f=6227020800 n=20 f=2.43290200817664e+18
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Написать программу на любом языке программирования по этой схеме