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

@KirKap · Регистрация: 24.09.2012

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

Буду очень признателен

"В заданном одномерном массиве поменять местами соседние элементы,
стоящие на чётных местах, с элементами, стоящими на нечётных. Каждый элемент массива выбирается случайно.В начале и по окончании вывести на экран значения элементов массива (до - после)."

@CodeR · 29.09.2012, 14:02

Pascal

Var A:array[1..100] of integer;
    i,n,t:integer;
Begin
    write('Введите размерность: ');readln(n);
    writeln('Исходный массив: ');
    For i:=1 to n do
     Begin
      A[i]:=random(30)-15;
      write(A[i]:4);
     End;
    writeln;
    writeln('Преобразованный: ');
    i:=0;
    While i<n-1 do
     Begin
      inc(i,1);
      t:=A[i];
      A[i]:=A[i+1];
      A[i+1]:=t;
      inc(i,1);
     End;
     For i:=1 to n do
      write(A[i]:4);
    readln;
End.

@KirKap 0 / 0 / 0 Регистрация: 24.09.2012 Сообщений: 10
		1
	В заданном одномерном массиве поменять местами соседние элементы, стоящие на четных местах, с элементами, стоящими на нечетных 29.09.2012, 10:57. Показов 43850. Ответов 1 Метки нет (Все метки) Буду очень признателен "В заданном одномерном массиве поменять местами соседние элементы, стоящие на чётных местах, с элементами, стоящими на нечётных. Каждый элемент массива выбирается случайно.В начале и по окончании вывести на экран значения элементов массива (до - после)." 0

	29.09.2012, 14:02

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

Решение