Поменять местами соответствующие элементы двух массивов между собой: x = (-3, 20, 13.05, -0.008), y = (1, -5, 0, 4.5) на печать вывести полученные массивы.

Я только сам цикл замены элементов массива напишу, до этого надеюсь смогешь. Если нет - в лс напиши)

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.