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