Составьте диаграмму молочных продуктов?

Так как первые два байта слева в IP-адресе узла и адресе сети совпадают, значит, в маске для получения такого результата при поразрядной конъюнкции в двоичной системе должны быть все единицы. В маске 16 единиц есть

Разложение третьих чисел в адресах

номер 7 6 5 4 3 2 1 0

59(10)=0 0 1  1  1 0 1  1

65(10)=0 0 1 0 0 0 0 1

как видно полное совпадение видно в первых трех разрядах слева, значит 16+3=19 единиц в маске уже есть, но возможны еще...

Если биты пронумеровать справа налево

Для 4-го и 3-го бита получаем: ? & 0 = 0 -> в маске может находиться как единица, так и 0. Но так как по заданию у нас спрашивается наибольшее возможное количество единиц, то значит, необходимо сказать, что в маске данный бит равен 1.

Для 2-го бита получаем: ? & 1 = 0 -> в маске может находиться только 0.

Поэтому выходит что максимальное значение единиц в маске 19+2=21

1) var  a: array[0..100] of integer;  i, s, n: integer;
begin 
writeln('Введите количество элементов в массиве: '); readln(n);   
for i := 1 to n do   begin   
a[i] := random(10);   
write(a[i], ' ');   
s := s * a[i]; 
end;   
writeln; 
writeln(s);
end.

2) var  a: array[0..100] of integer;  i, s, n: integer;
begin 
 writeln('Введите количество элементов в массиве: '); readln(n);   
for i := 1 to n do   begin   
a[i] := random(10);   
write(a[i], ' '); 
end;   
for i := 1 to n do   begin   
// if (i mod 2=0) then s:=s+a[i]; Раскоментируй, если сумму нужно искать среди четных номеров элементов.   
// if (a[i] mod 2=0) then s:=s+a[i]; Раскоментируй, если сумму нужно искать среди самих четных элементов. 
end;   
writeln; 
writeln(s);
end.

3)var  a: array[0..100] of integer;  i, s, n, max: integer;
begin 
writeln('Введите количество элементов в массиве: '); readln(n);   
 for i := 1 to n do   begin   
a[i] := random(10);   
write(a[i], ' '); 
end; 
s:=0; 
 for i := 1 to n do   begin   
if (a[i]>s) then s:=a[i]; 
end;   
writeln; 
writeln(s);
end.

4)var  a: array[0..100] of integer;  i, s, n, max: integer;
begin 
writeln('Введите количество элементов в массиве: '); readln(n);   
for i := 1 to n do   begin   
a[i] := random(10);   
write(a[i], ' '); 
end; 
s:=0; 
for i := 1 to n do   begin   
if (a[i]>s) and (a[i] mod 3=0) then s:=a[i]; 
end;   
writeln; 
writeln(s);
end.