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

Я только сам цикл замены элементов массива напишу, до этого надеюсь смогешь. Если нет - в лс напиши)Var bufer: integer;bufer: = 0;BeginFor i = 1 to 4 Beginbufer:= x[i];x[i]:= y[i];y[i]:= bufer;End;For i = 1 to 4write(x[i], ' ');writeln;For i = 1 to 4write(y[i], ' ');End.