Delphi заготовки

Одномерный массив
Задача.

Переместить минимальные элементы в начало, сдвинув остальные элементы вправо.



исходник для работы с одномерным массивом на pascal / delphi
const ncount=25; // размер массива

var a:array [1..ncount] of integer; // массив элементов

procedure CreateArray;
var i:integer;
begin
randomize;// инициализация
  for i:=1 to ncount-1 do  a[i]:=random(150);
end;
// функция поиска минимального элемента
Function GetMin:integer;
var i:integer; // переменная
    MinA:integer;
begin
  MinA:=a[1];
  for i:=1 to ncount-1 do
     if MinA>a[i] then MinA:=a[i];
  result:=MinA;
end;
// возвращает index минимального элемента
Function GetMinIndex:integer;
var i:integer; // переменная
    MinA:integer;
begin
  MinA:=a[1];
  result:=1;
  for i:=1 to ncount-1 do
    ... Читать дальше »