Поменять местами соседние элементы массива, стоящие на чётных местах с элементами, стоящими на нечётных местах

@Inter1246 · Регистрация: 03.04.2015

В заданном одномерном массиве поменять местами соседние элементы,стоящие на чётных местах,с элементами,состоящими на нечётных местах

@Sergio Leone · 09.04.2015, 01:01

Pascal

i:=1;
while i<N do begin
  temp := A[i]; A[i] := A[i+1]; A[i+1] := temp;
  Inc(i,2)
end;

@Игорь11 · 09.04.2015, 09:58

А где начало?

@ZX Spectrum-128 · 09.04.2015, 10:09

Игорь11, описание переменных и заполнение массива вы легко можете написать самостоятельно. Либо посмотреть, как это делается, в FAQ.

@Игорь11 · 09.04.2015, 11:10

Напишите пожалуйста начало

@ZX Spectrum-128 · 09.04.2015, 13:28

Pascal

Const
 N=10;
Var
 I,temp:integer;
 A:array [1..n] of integer;
Begin
 For i:=1 to n do
  Begin
   A[i]:=random(n);
   Write(a[i]:4);
  End;
 Writeln;
...
For i:=1 to n do
 Write(a[i]:4);
 Readln;
End.

@Inter1246 0 / 0 / 0 Регистрация: 03.04.2015 Сообщений: 11
		1
	Поменять местами соседние элементы массива, стоящие на чётных местах с элементами, стоящими на нечётных местах 08.04.2015, 23:07. Просмотров 2530. Ответов 5 Метки нет (Все метки) В заданном одномерном массиве поменять местами соседние элементы,стоящие на чётных местах,с элементами,состоящими на нечётных местах 0

@Игорь11 0 / 0 / 0 Регистрация: 03.04.2015 Сообщений: 3
	09.04.2015, 09:58	3
	А где начало? 0

@ZX Spectrum-128 6582 / 4432 / 4722 Регистрация: 05.06.2014 Сообщений: 21,756
	09.04.2015, 10:09	4
	Игорь11, описание переменных и заполнение массива вы легко можете написать самостоятельно. Либо посмотреть, как это делается, в FAQ. 0

@Игорь11 0 / 0 / 0 Регистрация: 03.04.2015 Сообщений: 3
	09.04.2015, 11:10	5
	Напишите пожалуйста начало 0

Опции темы