Дан массив E[1:n].Поменять местами его первый чётный и последний нечётный элементы

@Fonika · Регистрация: 16.12.2010

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

@neske · 11.01.2011, 18:37

Pascal

// mas: массив,
// size: размер массив.
for i:=1 to size do
 if mas[i] mod 2 = 0 then
  begin
   first:=mas[i]; // first: первый четный элемент.
   break;
  end;
for i:=size downto 1 do
  if mas[i] mod 2 <> 0 then
   begin
    last:=mas[i]; // last: последний нечетный элемент
    break;
// change
tmp:=first;
first:=second;
second:=tmp;

@Puporev · 11.01.2011, 19:39

Искать нужно не значения, а их индексы, также и обменивать

Pascal

1
2
3

tmp:=mas[first];
mas[first]:=mas[second];
mas[second]:=tmp;

@neske · 11.01.2011, 19:42

А это имеет весомое значение?

@Fonika · 11.01.2011, 19:50 **[ТС]**

теперь получилось)
огромное всем спасибо)

@neske · 11.01.2011, 19:53

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

@Fonika 0 / 0 / 0 Регистрация: 16.12.2010 Сообщений: 16
		1
	Дан массив E[1:n].Поменять местами его первый чётный и последний нечётный элементы 11.01.2011, 17:22. Показов 1159. Ответов 5 Метки нет (Все метки) Дан массив E[1:n].Поменять местами его первый чётный и последний нечётный элементы 0

@neske 1552 / 918 / 193 Регистрация: 26.03.2010 Сообщений: 3,105
	11.01.2011, 19:42	4
	А это имеет весомое значение? 1

@Fonika 0 / 0 / 0 Регистрация: 16.12.2010 Сообщений: 16
	11.01.2011, 19:50 [ТС]	5
	теперь получилось) огромное всем спасибо) 0

@neske 1552 / 918 / 193 Регистрация: 26.03.2010 Сообщений: 3,105
	11.01.2011, 19:53	6
	Puporev, пост мой прошлый пропустите мимо глаз. Невнимательность... такая глупость, аж стыдно. Все, спасибо. 0