• Найдите разность максимального и минимального из четырёх чисел.

Ответы 6

  • А мне нет
    • Автор:

      luna6
    • 6 лет назад
    • 0
  • я буду игнорить
  • Наздоровье
    • Автор:

      jaelyn
    • 6 лет назад
    • 0
  • Но вы обвиняете человека в том, чего он не делал
    • Автор:

      juan797
    • 6 лет назад
    • 0
  • Причем выносите это на публику
    • Автор:

      calixto
    • 6 лет назад
    • 0
  • var num: array[1..4] of integer;min, max: integer;beginread(num[1], num[2], num[3], num[4]);min := num[1];max := num[1];for var k := 1 to 4 do if num[k] >= max then max := num[k];for var k := 1 to 4 do if num[k] <= min then min := num[k];write(max - min);end.
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years