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.
<em><u>Тестовое решение:</u></em>
Введите экспертные оценки
4 4 5 3 5
Итоговый балл равен 4.33
Чтобы число было максимальным нужно, чтобы на первом месте стояли самые большие цифры. Это две двойки подряд.
Таких чисел 2:
221121122121
221212211211
Видно, что второе число больше, т.к у первого на 4-м месте - 1, а у второго 2
Ответ 221212211211
101010 + 1110 = 111000
1010 + 1111 = 11001
1000 + 1011 = 10011
Var f,n:integer;
begin
write('Сколько дней: ');
readln(f);
n:=f div 7;
writeln('Полных недель: ',n);
<span>end.</span>