Поменять местами элементы в массиве!

[Angel-dm]

Дан одномерный массив целых чисел. Поменять местами первый элемент с ненулевым значением и последний элемент с нечетным значением Заранее спасибо. Ваш angel-dm)))

[Stilet]

Ну а нароботки то есть?
Напиши хотя бы как ты массив вводишь?

[Angel-dm]

Сообщение от Stilet

Ну а нароботки то есть?
Напиши хотя бы как ты массив вводишь?

ссори но нету, мну просто ещё 7 штук сделать надо за час просто их сюда печатать долго, вот и прошу помочь)))

[Grag]

Так найдешь первый ненулевой элемент в матрице и его индекс.

Const
  Range=20;
Var
  idxNotZero:integer;
  idxOdd:integer;
  X:integer;
i:=0;
idxNotZero:=0;
while A[i]<>0 do
  begin
    Inc(i);
    idxNotZero:=i
  end

Вот так найдешь последний нечетный элемент матрицы
Здесь Range - Размерность массива

i:=Range;
idxOdd:=i;
while not odd(A[i]) do
  begin
    Dec(i);
    idxOdd:=i
  end;

А уж поменяй их местами сам...

[Angel-dm]

Сообщение от Grag

Так найдешь первый ненулевой элемент в матрице и его индекс.

Const
  Range=20;
Var
  idxNotZero:integer;
  idxOdd:integer;
i:=0;
while A[i]<>0 do
  begin
    Inc(i);
    idxNotZero:=i
  end

Вот так найдешь последний нечетный элемент матрицы
Здесь Range - Размерность массива

i:=Range;
while not odd(A[i]) do
  begin
    Dec(i);
    idxOdd:=i
  end;

А уж поменяй их местами сам...

пасибо
большое отмечу))))
Ну если мож то и доделай сам
время нету аще писец

[Grag]

Вот так поменяешь их местами

X:=A[idxOdd];
A[idxOdd]:=A[idxNotZero];
A[idxNotZero]:=X;

А можно еще и такой трюк провернуть по обмену значениями

A[idxNotZero]:=A[idxNotZero]+A[idxOdd];
A[idxOdd]:=A[idxNotZero]-A[idxOdd];
A[idxNotZero]:=A[idxNotZero]-A[idxOdd];

Тогда можно обойтись без промежуточной переменной Х...