Задать вопрос
7 февраля, 18:36

Дан массив состоящий из 15 целых случайных чисел из промежутка от 10 до 30. Провести сортировку методом пузырька по убыванию

+1
Ответы (1)
  1. 7 февраля, 20:40
    0
    Program enot;

    const m=15;

    var a: array[1 ... m] of integer;

    i, j, k: integer;

    begin

    for i : = 1 to m do

    a[i] : = random (21) + 10;

    for i : = 1 to m-1 do

    for j : = 1 to m-i do

    if a[j] < a[j+1] then begin

    k : = a[j];

    a[j] : = a[j+1];

    a[j+1] : = k

    end;

    write ('Отсортированный массив: ') ;

    for i : = 1 to m do

    write (a[i]:4) ;

    end.
Знаете ответ на вопрос?
Не уверены в ответе?
Правильный ответ на вопрос 👍 «Дан массив состоящий из 15 целых случайных чисел из промежутка от 10 до 30. Провести сортировку методом пузырька по убыванию ...» по предмету 📗 Информатика. Развернутая система поиска нашего сайта обязательно приведёт вас к нужной информации. Как вариант - оцените ответы на похожие вопросы. Но если вдруг и это не помогло - задавайте свой вопрос знающим оппонентам, которые быстро дадут на него ответ!
Искать готовые ответы