Не верно. Сумма может быть любой как и числа массива.
<span>Логическая операция ⊕ - это "исключающее ИЛИ" (xor в языках Паскаль, Бейсик и т.д.), а → операция присваивания.
Тогда a⊕b→a; a⊕b→b; a⊕b→a - это был обмен значениями a ↔ b
Теперь по этой же схеме обменяем местами b и с:
b⊕c→b; </span>b⊕c→с; <span>b⊕c→b.
Результат: b→a; c→b; a→c
<u>Программа для иллюстрации:</u>
// PascalABC.NET 3.1, сборка 1218 от 12.04.2016
begin
var a:=50;
var b:=-20;
var c:=0;
Println('Исходные значения: a=',a,'b=',b,'c=',c);
a:=a xor b; b:=a xor b; a:=a xor b;
b:=b xor c; c:=b xor c; b:=b xor c;
Println('Результат обмена: a=',a,'b=',b,'c=',c)
end.
<u>Результат:</u>
Исходные значения: a= 50 b= -20 c= 0
Результат обмена: a= -20 b= 0 c= 50 </span>
Б) программисты (алгоритмики это синоним к слову программисты).
Ответ:
Персональный компьютер, как и любая машина, имеет своё устройство. Однако, когда речь идёт о такой вещи как компьютер, возникает понимание всей сложности данной системы и примитивности многих других систем при сравнении. Глубинная система устройство может быть весьма и весьма сложной для необученного человека, и, тем не менее, каждый рядовой пользователь компьютер должен быть хотя бы на поверхностном уровне знаком с устройство компьютера.
компьютеру пологается монитор, мышь, клавиатура и другие.
Program Project1;
var m:array of integer; res, n, i:integer;
begin
repeat
write('n: '); readln(n);
SetLength(m, Length(m)+1);
m[Length(m)-1]:=n;
until n=0;
res:=0;
for i:=1 to Length(m)-1 do
if m[i]<0 then res:=res+m[i];
writeln('Result:=', res);
readln;
end.
