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

pomogiplizplizpliz pomogiplizplizpliz    3   21.09.2019 02:50    10

Ответы
foward11 foward11  08.10.2020 06:08
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика