Найти среднее число из трех

Posted by obzor under Delphi

Дано три числа, нужно чтобы программа выбирала среднее, то есть не наиболее большое и не наиболее маленькое.
вход: 3 7 4, исход: 4

Aleksandr H.

var
    a1, a2, a3: integer;

begin
    write ('Введите три числа: ');
    readln (a1, a2, a3);
    if (a1 = a2) or (a1 = a3) or (a2 = a3) or ((a1 = a2) and (a2 = a3)) then
        writeln('Ошибка')
    else
        if ((a1 > a2) and (a1 < a3)) or ((a1 < a2) and (a1 > a3)) then
            writeln(a1)
        else
            if ((a2 > a1) and (a2 < a3)) or ((a2 < a1) and (a2 > a3)) then
                writeln(a2)
            else
                writeln(a3);
end.

тема на форуме

Похожие статьи

• Способы передачи параметров в подпрограммы в Delphi
• Описать функцию Pi(eps), вычисляющую значение числа Пи по формуле
• Вычислить методом касательных (Pascal)
• Ввести номер одного из друзей и вывести его имя (задача на записи)
• Найти сумму элементов массива, стоящих после последнего нулевого элемента
• Вычисление формулы с произведениями
• Можно ли среди чисел массива найти две разных пары чисел, суммы которых одинаковы?
• Определить, является ли массив «магическим квадратом»
• Создать таблицу умножения
• Обработка строк (Pascal)