Одномерый массив. Перенести в начало массива минимальный элемент

@Alex28 · Регистрация: 18.02.2012

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

Дан массив целых чисел а1,…, аn. Перенести в начало массива минимальный элемент с выводом исходного массива, промежуточных результатов и конечного результата с пояснениями.

@3a9Ic · 20.04.2012, 21:40

Pascal

Uses CRT;
Const n=5;
var a:array[1..n] of integer;
    i,index,buf,min:integer;
begin
     ClrScr;
     for i:=1 to n do
     begin
     a[i]:=Random(21);
     write(' a[',i,']=',a[i]);
     end;
     min:=a[1];
     index:=1;
     for i:=1 to n do
         begin
              if a[i]<min then
                 begin
                      min:=a[i];              //Поиск минимального эл.
                      index:=i;               //Его индекс
                 end
         end;
     writeln('');
     write('Min=',min,' Index=',index);
     buf:=a[1];                                  //Замена первого элемента,с тем,откуда мы его взяли
     a[1]:=a[index];
     a[index]:=buf;
     writeln('');
     for i:=1 to n do write(' a[',i,']=',a[i]);      //Вывод
end.

@Alex28 1 / 1 / 0 Регистрация: 18.02.2012 Сообщений: 24
		1
	Одномерый массив. Перенести в начало массива минимальный элемент 20.04.2012, 21:16. Показов 1973. Ответов 1 Метки нет (Все метки) Дан массив целых чисел а1,…, аn. Перенести в начало массива минимальный элемент с выводом исходного массива, промежуточных результатов и конечного результата с пояснениями. 0

	20.04.2012, 21:40

Одномерый массив. Перенести в начало массива минимальный элемент

Решение