Поменять местами первый и минимальный элементы массива

@WednesdayAddams · Регистрация: 18.01.2017

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

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

@cfbogd · 18.01.2017, 21:20

WednesdayAddams,

Pascal

var a:array [1..5] of integer=(9,4,3,1,1); //массив чисел
i,min,buf:integer;
begin
for i:=1 to 5 do write(a[i]:2); //вывод массива
min:=1; //индекс минимального элемента
for i:=5 downto 2 do if a[min]>a[i] then min:=i; //поиск индекса элемента с минимальным значением 
if i<>1 then //если первый элемент НЕ минимальный
begin
buf:=a[1]; //замена
a[1]:=a[min];
a[min]:=buf;
end;
writeln;
for i:=1 to 5 do write(a[i]:2); //вывод измененного массива
end.

@JuriiMW · 19.01.2017, 06:54

cfbogd, следующий кусок вашей программы

Код

begin
buf:=a[1]; //замена
a[1]:=a[min];
a[min]:=buf;
end;

можно заменить одним оператором:

Код

swap(a[1],a[min]);

А вместо:

Код

for i:=1 to 5 do write(a[i]:2);

написать:

Код

WriteLn(a);

Если же массив определить как динамический:

Код

var a := arr(9,4,3,1,1);

то программа уменьшится в два раза по количеству строк:

Pascal

begin
  var a := arr(9,4,3,1,1); //массив чисел
  WriteLn(a); //вывод массива
  if a.IndexMin > 0 then //если первый элемент НЕ минимальный
    swap(a[0],a[a.IndexMin]);
  WriteLn(a); //вывод измененного массива
end.

… А уж на сколько она уменьшилась по количеству кода!

@WednesdayAddams 0 / 0 / 0 Регистрация: 18.01.2017 Сообщений: 1
		1
	Поменять местами первый и минимальный элементы массива 18.01.2017, 20:49. Показов 3513. Ответов 2 Метки нет (Все метки) Как поменять местами первый и минимальный элементы массива? (если элементов с минимальным значением несколько, в обмене должен участвовать последний из них). 0

	19.01.2017, 06:54

Поменять местами первый и минимальный элементы массива

Решение