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

Формулировка задачи:

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

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

textual
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


СОХРАНИТЬ ССЫЛКУ