помогите срочно срочно с информатикой: написать процедуру,которая получает две вещественные переменные и возвращает вместо каждой из них отклонение от среднего арифметического...плиз...

1

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

Лучший Ответ!
  • Tlalok
  • почетный грамотей
2013-03-18T23:42:06+04:00

procedure Ch(var a, b:real);

var

  m:real;

begin

  m := (a + b) / 2;

  a := abs(a - m);

  b := abs(b - m);

end;

 

var

  a, b:real;

begin

  write('a = '); readln(a);

  write('b = '); readln(b);

  Ch(a, b);

  writeln('a = ', a);

  writeln('b = ', b);

end.