Отсортировать массив в порядке неубывания - Pascal ABC

  1. Дан целочисленный массив, содержащий не менее 25 элементов. Отсор-тировать массив в порядке неубывания с помощью института указателей языка PASCAL. Help


textual

Код к задаче: «Отсортировать массив в порядке неубывания - Pascal ABC»

const nmax=100;
type uc=^array[1..nmax] of integer;//указатель на массив
var a: uc;
    n,i,j,x:integer;
begin
randomize;
repeat
write('Размер массива от 25 до ',nmax,' n=');
readln(n);
until n in [25..nmax];
new(a);//выделим память под массив
for i:=1 to n do
 begin
  a^[i]:=random(100); //передаем значение элементов
  write(a^[i]:4);
 end;
writeln;
for i:=1 to n-1 do
for j:=i+1 to n do
if a^[i]>a^[j] then
 begin
  x:=a^[i];
  a^[i]:=a^[j];
  a^[j]:=x;
 end;
writeln('Отсортированный массив');
for i:=1 to n do
write(a^[i]:4);
dispose(a) //освобождаем память
end.

СДЕЛАЙТЕ РЕПОСТ

9   голосов, оценка 3.889 из 5



Похожие ответы
  1. Проверьте, правильно ли работает программа. А именно PROCEDURE BSr, и правильность передачи переменных в основную программу. ЗАДАНИЕ: Сформировать массив из чисел, больших среднего.

  1. Заполнить числами, начиная с единицы, квадратный массив из NxN элементов «змейкой». Пример, для массива 4х4: Код 1 2 3 4 8 7 6 5 9 10 11 12 16 15 14 13 Реализовать ввод размерности с клавиатуры

  1. Помогите исправить ошибку . Задание :Сформировать двумерный массив. Удалить из него строку и столбец, на пересечении которых находится минимальный элемент.

  1. Создать одномерный числовой массив из 6 элементов и вывести результат на экран. Затем элементы, стоящие на нечетных местах уменьшить на 2, подсчитать сумму этих элементов и вывести эти значения на экран с пояснениями.

  1. Добрый вечер! Помогите, пожалуйста! Даны три целочисленных массива длиной n, m, l (заполняются случайными целыми числами). В первом массиве осуществить циклический сдвиг вправо на a позиций, во втором на b, в третьем на c. Нужно сделать через процедуры Заранее благодарю

  1. Добрый вечер! Помогите, пожалуйста! Даны три целочисленных массива длиной n, m, l (заполняются случайными целыми числами). Если количество четных элементов больше, то отсортировать его по возрастанию, иначе по убыванию Обязательно сделать через процедуры Заранее благодарю

  1. Дан целочисленный вектор А(n). Отсортировать его элементы методом просеивания.Добавлено через 3 часа 24 минуты

  1. Нужно написать прогу плиз) Буду благодарен)) Дана целочисленная прямоугольная матрица. Определить: 1) количество строк, не содержащих ни одного нулевого элемента; 2) встречается ли более од¬ного раза максимальное из чисел в заданной матрице.

  1. Определить и вывести сумму элементов, значения которых находятся в диапазоне от А до В. Количество элементов массива:14 Тип Элемента массива: Int Результат вывести в виде: A[1]=........ A[2]=......... A[3]=......... Большое спасибо, за помощь!