Регистрация
FiXMy
05.10.2022 07:40
Информатика
Есть ответ 👍

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

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

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

уфагаполмилио
уфагаполмилио
4,8(6 оценок)
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.
Helpmepleasewith
Helpmepleasewith
4,4(65 оценок)

Решение на фото! Удачи! Если моё решение вам, сделайте его лучшим


Сделайте весь 19 вариант

Популярно: Информатика