Поменять местами соответствующие элементы двух массивов между собой: X = (-3, 20, 13.05,...

Question

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

Answer 1

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

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.