Дан целочисленный вектор А(n). Отсортировать его элементы методом просеивания. - Pascal ABC

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

Дан целочисленный вектор А(n). Отсортировать его элементы методом просеивания.Добавлено через 3 часа 24 минуты
Program P1;
  uses crt;
const
  n_max = 100;
var
  a: array[1..n_max] of integer;
  n, m, i, j, q, pos: integer;
  t: boolean;
  max, tmp: integer;
begin
  write('Введите размерность массива: ');
  readln(n);
  WriteLn ('Введите элементы массива');
  for i := 1 to n do
  begin
    a[i] := -n_max div 2 + n_max;
    write('A[',i,']= ');
    ReadLn (A[i]);
    if a[i] > max then
    begin
      max := a[i];
      pos := i;
    end;
  end;
  writeln;
  i := 1;
  while (i < n) and not t do
  begin
    if a[i] < a[i + 1] then
      t := true;
    inc(i);
  end;
  for j := 1 to n - 1 do
    for q := j + 1 to n do
      if a[j] > a[q] then
      begin
        tmp := a[j];
        a[j] := a[q];
        a[q] := tmp;
      end;
  writeln('Отсортированный массив: ');
  for i := 1 to n do
    write(a[i]:5);
end.

Код к задаче: «Дан целочисленный вектор А(n). Отсортировать его элементы методом просеивания. - Pascal ABC»

textual
const
  n_max = 100;
 
var
  a: array[1..n_max] of integer;
  n, i, j, q: integer;
  tmp: integer;
 
begin
  write('Введите размерность массива: ');
  readln(n);
  WriteLn('Введите элементы массива');
  for i := 1 to n do
  begin
    write('A[', i, ']= ');
    ReadLn(A[i]);
  end;
  writeln;
  for j := 1 to n - 1 do
    for q := j + 1 to n do
      if a[j] > a[q] then
      begin
        tmp := a[j];
        a[j] := a[q];
        a[q] := tmp;
      end;
  writeln('Отсортированный массив: ');
  for i := 1 to n do
    write(a[i]:5);
end.

15   голосов, оценка 4.067 из 5


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