Поменять местами соответствующие элементы двух массивов между собой: 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.