Задать вопрос
18 апреля, 09:25

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

+5
Ответы (1)
  1. 18 апреля, 10:18
    0
    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
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Даны три числа, найти разность наибольшого числа с наименьшим. (РЕшить с repeat, until) ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы