Объяснение:
^ не ставится у меня, но выполняет свои действия, у себя его ставьте!
Вариант с большим кол-вом IP 1.0.0.0. Тогда максимальное кол-во IP = 2^31 = 2147483648
Опечатка? Если объем равен 24 байта, значит закодировано 24/2 = 12 символов. Если нужно найти сколько байт потребуется на 24 символа - то 24*2 = 48 байт.
Var
max, //максимальный элемент
min, //минимальный элемент
sum, //сумма всех чисел
n, //количество чисел
j: integer;
Begin
write('Введите количество чисел: ');
readln(n);
write('Введите числа: ');
readln(j);
max:=j; min:=j; sum:=j; //1-й элемент это мин, макс, и сумма одновременно
for var i:=2 to n do begin
readln(j);
if(j > max) then max:=j
else if(j < min) then min:=j;
sum:= sum+j;
end;
sum:= round(sum/n)*min-max; //результирующая формула
if sum < 0 then writeln('Результат: ', -sum)//умножаем на -1 если результат<0
else writeln('Результат: ', sum);
End.