В заданном одномерном массиве поменять местами соседние элементы. (паскаль)
В заданном одномерном массиве поменять местами соседние элементы. (паскаль)
Гость
Ответ(ы) на вопрос:
Гостьvar a : array[1..10] of integer; n, z:integer;
begin
readln(n);
for var i:=1 to n do
readln(a[i]);
for var i:=1 to n-1 do begin
z:=a[i];
a[i]:=a[i+1];
a[i+1]:=z;
end;
for var i:=1 to n do
writeln(a[i]);
end.
Не нашли ответ?
Похожие вопросы