В одной деревне жили собака и кошка.Собачку звали Жучка,а кошку Муська. Они были очень дружны.Ели Жучка и Муська с одной миски,спали в одной будке.Жучка сторожила хозяйский двор,Муська ловила мышей.И все было очень хорошо и дружно.Но однажды на крыше хозяйского дома,Муся увидела гнездо,а в гнезде,три яйца.Жучка и Муська поняли,что это кукушка бросила свои яйца.Они вытащили это гнездо на землю и поочереди грели яйца своим телом.Через неделю ,из яиц вылупились птенцы, и Муська с Жучкой взяли заботу о кормлении на себя. Вот такая небылица.Сказка ложь ,да в ней намек,добрым молодцам урок
Если у маски значение 255, то IP не меняется, т.е первые два байта будут такие же, а именно 224.24. Последний байт у IP адреса будет 0, т.к. при поразрядной конъюнкции на 0 будут 0 в двоичной с.с. Т.е адрес будет 224.24. .0 Осталось найти третий байт. Для этого переведем 254 и 224 в двоичную с.с и поразрядно перемножим 254 = 11111110 224 = 11100000 Если поразрядно их перемножить будет 11111110 11100000 11100000 При переводе этого числа в десятичную - получим 224, значит адрес сети 224.24.224.0
program Arrminmax;
var
A: array of Integer;
N, i, imin, imax, Atmp: Integer;
begin
Write ('Введите размерность массива: ');
ReadLn (N);
SetLength(A, N); // устанавливаем размерность массива, введенную с клавиатуры
Randomize;
WriteLn ('Исходный массив:');
for i := Low (A) to High (A) do begin // заполняем массив случайными числами от -10 до 10 и выводим его на экран
A [i] := Random (21) - 10;
Write (A [i], ' ');
end;
imin := Low (A); // начальные значения - первых индекс в массиве
imax := Low (A);
for i := Low (A) to High (A) do begin // находим минимальный и максимальный элементы массива
if A [i] < A [imin] then
imin := i;
if A [i] > A [imax] then
imax := i;
end;
Atmp := A [imax]; // меняем местами минимальный с максимальным
A [imax] := A [imin];
A [imin] := Atmp;
WriteLn;
WriteLn ('Результат обработки:'); // вывод результата
for i := Low (A) to High (A) do begin
Write (A [i], ' ');
end;
ReadLn;
end.
Объяснение: в комментариях к программе