Поменять местами элементы с четными и нечетными номерами.

@программмист · Регистрация: 05.04.2017

Author24 — интернет-сервис помощи студентам

Дано 20 чисел. Поменять местами элементы с четными и нечетными номерами.

@VladimirD · 11.04.2017, 19:29

Pascal

program Project1;
 const n=20;
 var i,s:integer;
 A:array [1..n] of integer;
begin
  randomize;
  for i:=1 to n do begin
   A[i]:=random(100);
   write (A[i]:4);
  end;
   writeln;
   i:=1;
  repeat
   s:=A[i]; A[i]:=A[i+1]; A[i+1]:=s; i:=i+2
  until i>n;
  for i:=1 to n do write (A[i]:4);
end.

@программмист 3 / 3 / 0 Регистрация: 05.04.2017 Сообщений: 138
		1
	Поменять местами элементы с четными и нечетными номерами. 11.04.2017, 17:43. Показов 2844. Ответов 1 Метки нет (Все метки) Дано 20 чисел. Поменять местами элементы с четными и нечетными номерами. 0

	11.04.2017, 19:29

Поменять местами элементы с четными и нечетными номерами.

Решение