1. запишите 32-битный ip address в виде четырех десятичных чисел, разделенных точками: 1) 11001100100110001011111001000111 2) 11011110110000111010001000110010 2. запишите ip address из четырех десятичных чисел в 32-битном виде: 210.171.30.128

1) 204.152.190.71

2) 222.195.162.50

3) 210.171.30.128 -> 11010010 10101011 00011110 10000000

Var   a: array of integer;   n, i: integer; begin   randomize;   write('введите размерность массива: ');   readln(n);   setlength(a, n);   writeln('массив: ');   for i : = 0 to n - 1 do     begin     a[i] : = random(21) - 10;     write(a[i]: 5);     end;   writeln;   writeln('результат деления отрицательных элементов на 2: ');   for i : = 0 to n - 1 do   begin     if a[i] < 0 then write(a[i] / 2: 5)     else write(a[i]: 5)   end; end.

Const   n= 5; var   a: array [1..10,1..10] of integer;   i,j,max: integer; begin   for i: = 1 to n do begin     for j: = 1 to n do begin       a[i,j]: = random(10);   // заполнение массива случайными числами       write(a[i,j],' ')     end;     writeln   end;   for i: = 1 to n do begin     max: = a[i,1];     for j: = 1 to n do       if a[i,j]> max then max: = a[i,j];     writeln('максимум ',i,' строки',' =',max)   end end.