Даны три числа,найти разность наибольшого числа с наименьшим.(решить с repeat,until)

192

317

Посмотреть ответы 2

Ответы на вопрос:

Leoapps

Информатика

4,4(3 оценок)

Const n = 3; var m: array[1..n] of integer; i, mn, mx: integer; begin write('введите через пробел три целых числа: '); i : = 1; repeat read(m[i]); i : = i + 1 until i > n; mn : = m[1]; mx : = mn; i : = 2; repeat if mx < m[i] then mx : = m[i] else if mn > m[i] then mn : = m[i]; i : = i + 1 until i > n; writeln('разность наибольшего с наименьшим равна ', mx - mn) end. тестовое решение: введите через пробел три целых числа: 7 9 3 разность наибольшего с наименьшим равна 6