Задать вопрос
8 августа, 22:56

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

+5
Ответы (1)
  1. 8 августа, 23:04
    0
    Var

    num: array[1 ... 4] of integer;

    min, max: integer;

    begin

    read (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.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Найдите разность максимального и минимального из четырёх чисел. ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы