в данном одномерном массиве поменять местами соседние элементы. (паскаль)

В заданном одномерном массиве поменять местами примыкающие элементы. (паскаль)

Задать свой вопрос
1 ответ

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.
Василиса Копыткова
если я верно сообразил
, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт