Отсортировать массив состоящий из 10 случайных элементов(от 1 до 100)в порядке убывания. Нужно использовать метод пузырька. Помогите,пожалуйста,составить программу для решения в Паскале
Ответы
Ответ дал:
1
var
arr: array[1..10] of Integer;
i, j, temp: Integer;
begin
// Инициализация генератора случайных чисел
Randomize;
// Заполнение массива случайными числами
for i := 1 to 10 do
arr[i] := Random(100) + 1;
// Вывод исходного массива
writeln('Исходный массив:');
for i := 1 to 10 do
write(arr[i], ' ');
writeln;
// Сортировка методом пузырька
for i := 1 to 9 do
for j := 1 to 10 - i do
if arr[j] < arr[j+1] then
begin
temp := arr[j];
arr[j] := arr[j+1];
arr[j+1] := temp;
end;
// Вывод отсортированного массива
writeln('Отсортированный массив:');
for i := 1 to 10 do
write(arr[i], ' ');
writeln;
end.
Вас заинтересует
3 месяца назад
3 месяца назад
4 месяца назад
4 месяца назад
2 года назад
2 года назад