решить задачу по информатике.
В терминологии сетей TCP/IP маской сети называется двоичное число, определяющее, какая часть IP-адреса узла сети относится к адресу сети, а какая – к адресу самого узла в этой сети. При этом в маске сначала (в старших разрядах) стоят единицы, а затем с некоторого места – нули. Обычно маска записывается по тем же правилам, что и IP-адрес – в виде четырёх байтов, причём каждый байт записывается в виде десятичного числа. Адрес сети получается в результате применения поразрядной конъюнкции к заданному IP-адресу узла и маске. Например, если IP-адрес узла равен 231.32.255.131, а маска равна 255.255.240.0, то адрес сети равен 231.32.240.0. Для узла с IP-адресом 93.138.70.47 адрес сети равен 93.138.64.0. Каково наименьшее возможное общее количество единиц во всех четырёх байтах маски? ответ запишите в виде десятичного числа.
var a:array[1..n] of integer;
i,s:integer; sr:real;
begin
Randomize;
writeln('Массив:');
for i:=1 to n do
begin
a[i]:=random(21);
write(a[i]:3);
end;
writeln;
s:=0;
for i:=1 to n do s:=s+a[i];
sr:=s/n;
writeln('Среднее арифметическое = ',sr:6:2);
writeln('Номера элементов, больших среднего арифметического:');
for i:=1 to n do
if a[i]>sr then write(i:3);
writeln;
end.
Пример:
Массив:
9 19 14 8 7 10 5 10 6 14 15 2 11 17 13
Среднее арифметическое = 10.67
Номера элементов, больших среднего арифметического:
2 3 10 11 13 14 15
Объяснение:
program ArrayOf50;
const
ArraySize = 50; {Определяем размен массива}
var
x: array[1..ArraySize] of integer;
i, PosCount, NegCount : integer;
begin
PosCount :=0; NegCount :=0; {Устанавливаем счетчики пол. и отр. чисел}
for i:=1 to ArraySize do begin {Цикл ввода данных}
Write('Input ', i, '-th element of array: ');
ReadLn(x[i]);
end;
for i:=1 to ArraySize do begin {Цикл обработки данных}
if x[i] > 0 then PosCount := PosCount+1; {считаем положительные}
if x[i] < 0 then NegCount := NegCount+1; {считаем отрицательные, нули в расчет не берутся!}
end;
Writeln('There are ', PosCount, ' positive numbers.');
Writeln('This is ', PosCount - NegCount, ' more than negatives');
end.