Одномерный массив (1-ый четный и последний max)

@Lolipo · Регистрация: 13.09.2010

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

Очень нужна помощь!!! Нужно поменять местами первый четный элемент и последний max элемент в одномерном массиве

@Puporev · 13.09.2010, 11:39

Первый четный

Pascal

i1:=0;
for i:=n downto 1 do
if a[i] mod 2=0 then i1:=i;
if i1=0 then 
 begin
  writeln('Четных элементов нет, программа завершена.');
  readln;
  exit;
 end;
writeln('Первый четный=',a[i1],'  его индекс=',i1);

Последний максимальный.

Pascal

imax:=1;
for i:=2 to n do
if a[i]>=a[imax] then imax:=i;
writeln('Последний максимальный=',a[imax],'  его индекс=',imax);
if imax=i1 then
 begin
  writeln('Первый четный и последний максимальный совпадают, обмена нет!');
  readln;
  exit;
 end;

Обмен элементов.

Pascal

x:=a[i1];
a[i1]:=a[imax];
a[imax]:=x;
writeln('Массив после обмена:') ;
for i:=1 to n do
write(a[i],' ');

@Lolipo 0 / 0 / 0 Регистрация: 13.09.2010 Сообщений: 10
		1
	Одномерный массив (1-ый четный и последний max) 13.09.2010, 11:13. Показов 1058. Ответов 1 Метки нет (Все метки) Очень нужна помощь!!! Нужно поменять местами первый четный элемент и последний max элемент в одномерном массиве 0

	13.09.2010, 11:39

Опции темы

Одномерный массив (1-ый четный и последний max)

Решение