Program dfg;
var
b,x,y:integer;
a:array [1..10] of integer;
d:real;
begin
randomize;
for x:=1 to 10 do
begin
y:=random(10);
a[x]:=y;
writeln ('числа случайные = ',y);
end;
a[1]:=a[1] xor a[10];
a[10]:=a[1] xor a[10];
a[1]:=a[1] xor a[10];
for x:=1 to 10 do
begin
writeln ('числа случайные после смены = ',a[x]);
end;
<span>end.</span>
1. = А(B+B+C) = A(2B + C)
Ответ:
1.Голубой
2.Светло-зелёный
3.Розовый
4.Коричневый
Объяснение:
Проверено через программу TextEdit функции выбора цвета на Mac OS