Впростой понятной форме. напишите программу, которая заполняет массив случайными числами в диапазоне [a, b] и сортирует его “домиком” – до половины в порядке возрастания, затем – в порядке убывания. количество элементов в массиве может быть любое! с объяснениями и откуда что взялось?

120

233

Посмотреть ответы 2

Ответы на вопрос:

umnik250

Информатика

4,6(69 оценок)

Var a: array [1..255] of integer; n, i, j, k, min, max: integer; begin //ввод количества элементов в массиве write('введите четное количество элементов: '); readln(n); //ввод двух чисел для диапазона случайных чисел write('введите диапазон случайных чисел: '); readln(min, max); //инициализация датчика случайных чисел. //(в pascalabc.net необязательно) randomize; //заполнение массива for i : = 1 to n do begin a[i] : = random(max-min+1)+min; write(a[i]: 4); end; writeln; //сортировка первой половины по убыванию for i : = 1 to ((n div 2)-1) do for j : = 1 to (n div 2)-i do if a[j] > a[j+1] then begin k : = a[j]; a[j] : = a[j+1]; a[j+1] : = k; end; //сортировка второй половины по убыванию for i: =(n div 2) to n-1 do for j: =i+1 to n do if a[i]< a[j] then begin k: =a[i]; a[i]: =a[j]; a[j]: =k; end; //вывод массива for i : = 1 to n do write(a[i]: 4); writeln; readln; end.