Массив сортировка массива, тестовое соедиенние Опции

[Lety]

Господа! помогите решить 2 задачки..


1.Дан массив X(n) найти элемент массива наиболее близкий к наименьшему элементу?

2.Дан массив X(n) получить новый массив выбросив из исходного все элементы с наименьшим значением.

[APAL]

Может так?

Код

Const
 Vmax = ..;
 Hmax = ..;

Type
 tip = Array [1..Vmax,1..Hmax] of Integer;

Var
 m : tip;

Procedure Sorting;
Var
 i,j,k : Word;
 tt : Array [1..Hmax] of Integer;
Begin
 For i:=1 to Vmax-1 do
   For j:=i+1 to Vmax do
     If m[j,1]>m[i,1] then
     Begin
       For k:=1 to Hmax do tt[k]:=m[j,k];
       For k:=1 to Hmax do m[j,k]:=m[i,k];
       For k:=1 to Hmax do m[i,k]:=tt[k];
     End;
End;

Begin
 {....}
 Sorting;
 {....}
End.

Прогу не проверял - написал прямо в окне.

Сообщение отредактировано: APAL - 28.03.2004 11:33