Program Mas_3;
{Задача 3 из 5
Задание: Сортировка выбором. Дана последовательность чисел a1, a2,..,an.
Требуется переставить элементы так, чтобы они были расположены по убыванию.
Для этого в массиве, начиная с первого, выбирается наибольший элемент и
ставится на первое место, а первый - на место наибольшего. Затем, начиная
со второго, эта процедура повторяется. Написать алгоритм сортировки выбором}
Const
N=15;
Var
Mas: Array[1..N] of Byte;
Xmax,Imax,i,j: Byte;
Begin
{Заполняем массив данными}
Randomize;
For i:=1 to N do
Mas:=Random(255);
{Выводим элементы массива на экран}
WriteLn;
For i:=1 to N do
Write(Mas,' ');
WriteLn;
{Сортируем массив}
For i:=1 to N-1 do
Begin
{Выбираем первоначальный элемент, который считаем максимальным}
Xmax:=Mas;
Imax:=i;
For j:=i+1 to N do
If Mas[j]>Xmax then {если нашли больший элемент - запоминаем его}
Begin
Xmax:=Mas[j];
Imax:=j;
End;
Mas[Imax]:=Mas;
Mas:=Xmax;
End;
{Выводим результаты на экран}
Write('Результат сортировки: ');
For i:=1 to N do
Write(Mas,' ');
ReadLn;
End.
Сортировка массива
Доброго времени суток!
Помогите плиз написать такую функцию:
Нужно отсортировать 3-х мерный массив вида A: array [1..10, 1..30, 1..3] of real по A[i,j,3]
Зарание благодарен!
Помогите плиз написать такую функцию:
Нужно отсортировать 3-х мерный массив вида A: array [1..10, 1..30, 1..3] of real по A[i,j,3]
Зарание благодарен!
немного не понятно задание - поясни плиз.
Это массив координат (x,y,z), нужно отсортировать массив по 3 координате (Z)
тогда, если я тебя правильно понял, тебе просто напросто надо как бы разбить свой массив на 3 массива, сортируя последний, ты просто будешь переставлять предыдущие "массивы", на теже позиции что и третий.
Вот код для одномерного массива:
Попробуй сам изменить код, если же у тебя не получиться, скажи, тогда скину полный код для твоего варианта
Вот код для одномерного массива:
Код:
Попробуй сам изменить код, если же у тебя не получиться, скажи, тогда скину полный код для твоего варианта