В заданном одномерном массиве поменять местами соседние элементы

Question

В заданном одномерном массиве поменять местами соседние элементы. Напишите программу на Паскале, заранееспасибо!

Answer 1

69

greg71

08 апреля 2023

Var n, i, c: integer; a: array [1… 1000] of integer; begin read (n); for i: =1 to n do read (a[i]); for i: =1 to n div 2 do begin c: =a[i*2]; a[i*2]: =a[i*2-1]; a[i*2-1]: =c; end; for i: =1 to n do write (a[i], '); end.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: