Третий байт слева это 3 число между точками.
переводишь 120 и 112 в двоичную систему и там где у тебя совпадают единички в маске будут единички а в остальных случаях нолики
120=1111000
112=1110000
маск1110000=112
Первый вариант программы:
Const
N = 5;
Var
A:array[1..N] of integer;
i:integer;
S:real;
Begin
Randomize;
S:=0;
Write('Исходный массив:');
For i:= 1 to N do
Begin
A[i]:=random(21)-10;
Write(' ',A[i]);
S:=S+A[i];
End;
WriteLn;
WriteLn('Сумма его элементов: ',S);
End.
Пример:
Исходный массив: -6 -9 8 7 1
Сумма его элементов: 1
Второй вариант программы:
Const
N = 13;
Var
A:array[1..N] of integer;
i,S,B:integer;
Begin
Randomize;
S:=0;
Write('Исходный массив:');
For i:= 1 to N do
Begin
A[i]:=random(21)-10;
Write(' ',A[i]);
End;
WriteLn;
Write('Введите номера пяти элементов: ');
For i:= 1 to 5 do
Begin
Read(B);
S:=S+A[B];
End;
WriteLn('Их сумма равна: ',S);
End.
Пример:
Исходный массив: 0 -9 6 4 -7 -1 9 -7 -2 -4 -6 4 -1
Введите номера пяти элементов: 3 4 7 12 1
Их сумма равна: 23
Если в языке допускается только латиница, цифры и знак подчеркивания, то a) б) в) д) е) ж) з) п)
Если допускаются и другие символы алфавита, например, кириллица, то
a) б) в) д) е) ж) з) н) п)
Цикл выполниться 4 раза (i = 3, 4, 5, 6);
S будет равно 18-ти (s = 3+4+5+6).
Var
i, c,t:integer;
A: array[0..9] of integer;
Begin
A[0]:=6;
A[1]:=7;
A[2]:=5;
A[3]:=8;
A[4]:=3;
A[5]:=2;
A[6]:=0;
A[7]:=1;
A[8]:=9;
A[9]:=4;
c:=0;
for i:= 0 to 9 do //ошибка либо в условии либо в коде
if A[i]<A[0]
then
Begin
c:=c + 1;
t:=A[i];
A[i]:= A[0];
A[0]:= t;
end;
writeln('c= ', c);
readln;
<span>end.
Ответ: c=4
</span>