If13. Даны три числа. Найти среднее из них (то есть число, расположенное ме-жду наименьшим и наибольшим). ПОМОГИТЕ СРОЧНО ПОЖАЛУЙСТА!!!

1

Ответы и объяснения

  • Sky09
  • профессор
2013-06-16T19:42:17+04:00

var
a,b,c,x:integer;
begin
  writeln('Введите три числа: ');

  readln(a,b,c);
  if (a>c) and (a>b) then
    if c>b then x:=c
    else x:=b;
  if (b>a) and (b>c) then
    if a>c then x:=a
    else x:=c;
  if (c>a) and (c>b) then
    if a>b then x:=a
    else x:=b;
writeln('Среднее число: ',x);
end.