Вроде как-то так: var a1,a2,a3,a4,a5,a6:real; function sr(a1,a2,a3:real):real; begin if ((a1<=a2) and (a1>=a3)) or ((a1<=a3) and (a1>=a2)) then sr:=a1 else if ((a3<=a2) and (a3>=a1)) or ((a3<=a1) and (a3>=a2)) then sr:=a3 else sr:=a2; end; begin write('Введите две тройки чисел:'); readln(a1,a2,a3,a4,a5,a6); writeln('Среднее арифметическое 2-х средних чисел =',(sr(a1,a2,a3) sr(a4,a5,a6))/2:0:4); end.
более месяца назад
Ваш ответ:
Вы можете из нескольких рисунков создать анимацию (или целый мультфильм!). Для этого нарисуйте несколько последовательных кадров
и нажмите кнопку Просмотр анимации.
