Задать вопрос
19 февраля, 21:38

Изменить массив таким образом, чтобы все элементы массива, стоящие до максимального элемента этого массива бы ли бы отсортированы по возрастанию элементы стоящие после него-по убыванию.

+4
Ответы (1)
  1. 20 февраля, 00:40
    0
    Const

    n=15;

    var

    a:array[1 ... n] of integer;

    i, j, k, t:integer;

    begin

    Randomize;

    Writeln ('Исходный массив');

    k:=1;

    for i:=1 to n do

    begin

    a[i]:=Random (99) + 1;

    Write (a[i],' ');

    if a[i]>a[k] then k:=i

    end;

    Writeln;

    for i:=1 to k-2 do

    for j:=1 to k-2 do

    if a[j] > a[j+1] then

    begin t : = a[j]; a[j] : = a[j+1]; a[j+1] : = t end;

    for i:=k+1 to n-1 do

    for j:=k+1 to n-1 do

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

    begin t : = a[j]; a[j] : = a[j+1]; a[j+1] : = t end;

    Writeln ('Упорядоченный массив');

    for i:=1 to n do Write (a[i],' ');

    end.
Знаешь ответ?
Не уверен в ответе?
Найди верный ответ на вопрос ✅ «Изменить массив таким образом, чтобы все элементы массива, стоящие до максимального элемента этого массива бы ли бы отсортированы по ...» по предмету 📙 Информатика, а если ответа нет или никто не дал верного ответа, то воспользуйся поиском и попробуй найти ответ среди похожих вопросов.
Искать другие ответы