Я только сам цикл замены элементов массива напишу, до этого надеюсь смогешь. Если нет - в лс напиши)
Var
bufer: integer;
bufer: = 0;
Begin
For i = 1 to 4
Begin
bufer:= x[i];
x[i]:= y[i];
y[i]:= bufer;
End;
For i = 1 to 4
write(x[i], ' ');
writeln;
For i = 1 to 4
write(y[i], ' ');
End.
Официально как проект только немного отличается
трех зайцев по углам, двоих вдоль стен
Связанный элемент,свободный элемент и вычисляемый элемент
1) возгорание (перегрев устройства)
2) удар током (ногами провода дрык, дык)
3) убийство (динозаврик выскочит на тебя из монитора в игре)