Помогите, пожалуйста. Нужно составить программу в Турбо Паскаль, которая находит минимальный элемент в массиве и ставит его на первое место, при этом все остальные элементы сдвигаются. Вывести на экран новый массив.

Помогите, пожалуйста. Нужно составить программу в Турбо Паскаль, которая находит минимальный элемент в массиве и ставит его на первое место, при этом все остальные элементы сдвигаются. Вывести на экран новый массив.
Гость
Ответ(ы) на вопрос:
Гость
const n = 10; var a:array[1..n]of integer;   min,imin,i,oldmin:integer; begin   //Заполнение массива значениями в диапазоне   //от -100 до 100   //и одновременно находим минимальный элемент элемент   min:=100;   for i:=1 to n do begin     a[i]:=random(201)-100;     if a[i]<= min then     begin       min:=a[i];       imin:=i;//Запомним index минимального     end;     write(a[i]:5);   end;   writeln;     //В цикле сдвигаем элементы массива   //до индекса минимального включительно на   //одну позицию вправо   for i:=imin downto 2 do     a[i]:=a[i-1];     a[1]:=min;   //вывод элементов массива   for i:=1 to n do write(a[i]:5);  end.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы