Пусть исходный массив А состоит из 10 элементов : 6 19 5 9 1 8 16 4 11 3. Необходимо упорядочить элементы массива в возрастающем или убывающем порядке.
ПАСКАЛЬ

Предыдущий
вопрос Следующий
вопрос

program SortArray;

var
A: array[1..10] of Integer;
i, j, temp: Integer;

begin
// Initialize the array
A[1] := 6;
A[2] := 19;
A[3] := 5;
A[4] := 9;
A[5] := 1;
A[6] := 8;
A[7] := 16;
A[8] := 4;
A[9] := 11;
A[10] := 3;

// Sorting the array in ascending order using bubble sort
for i := 1 to 9 do
begin
for j := 1 to 9 do
begin
if A[j] > A[j+1] then
begin
temp := A[j];
A[j] := A[j+1];
A[j+1] := temp;
end;
end;
end;

// Output the sorted array
for i := 1 to 10 do
begin
Write(A[i], ' ');
end;
end.