Сортировка массива(Паскаль)

[U4-nik]

Помогите с написанием программы Пожалуйста!!!
вот условие:


Отсортировать данный массив и подсчитать количество чисел в массиве, больших числа, запрашиваемого у пользователя(использовать сортировку простым выбором)

заранее огромное спасибо!!!

[Сtrl]

Помогите с написанием программы Пожалуйста!!!

Какая помощь вам нужна? Написать за вас весь код? Если да - не стесняйтесь, скажите прямо, я напишу. Если же вам нужна действительно помощь - задавайте вопрос.

[Сtrl]

var
  Mas: array of Integer;
  MasLength, I, J: Integer;
  KeyNum, KeyCount: Integer;

procedure SwapInt(var A, B: Integer);
var
  C: Integer;
begin
  C := A;
  A := B;
  B := C;
end;

begin
  Write('Enter array length: ');
  Readln(MasLength);

  while (MasLength < 1) do
  begin
    Write('Enter correct array length, please: ');
    Readln(MasLength);
  end;

  SetLength(Mas, MasLength);
  Writeln('Enter array values: ');

  for I := MasLength - 1 downto 0 do
    Read(Mas[I]);
  Readln;

  Writeln('Enter key num: ');
  Readln(KeyNum);

  for I := MasLength - 1 downto 0 do
  begin
    for J := I downto 0 do
      if Mas[I] > Mas[J] then
        SwapInt(Mas[I], Mas[J]);
  end;

  KeyCount := 0;
  for I := MasLength - 1 downto 0 do
    if Mas[I] > KeyNum then
      KeyCount := KeyCount + 1;

  Writeln('The array have been sorted: ');
  for I := MasLength - 1 downto 0 do
    Write(Mas[I], #9);
  Writeln;
  Writeln('Count of nums which more than key num = ', KeyCount);

  Readln;

end.

[U4-nik]

Огромное спасибо за код...только программа не работает...не могли бы вы перепаверить её, исправить ошибки?...пожалуйста

[Антон Лысенко]

Что именно не работает? Я проверил всё вроде нормально функционирует.

[Антон Лысенко]

Сообщение от Сtrl

  for I := MasLength - 1 downto 0 do
  begin
    for J := I downto 0 do
      if Mas[I] > Mas[J] then
        SwapInt(Mas[I], Mas[J]);
  end;

а это точно сортировка простым выбором или может быть обменом? Или это одно и то же? Вроде бы нет!
вот сортировка которая вам нужна :

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  mass:array [1..100] of real;
  i, j, n: integer;
  x: real;
begin
 writeln('Enter size');
  read(n);
  writeln('enter value');
  for i:=1 to n do
    read(mass[i]);

  for i := 2 to n do
    begin
      x := mass[i];
      j := i-1;
      while (j>0) and (x<mass[j]) do
        begin
          mass[j+1] := mass[j];
          j := j-1;
        end;
      mass[j+1] := x;
    end;
  for i:=1 to n do
    write(mass[i]:8:2);
    readln;
    readln;
end.

кстати, код не мой, нашёл на этом же сайте

[Сtrl]

а это точно сортировка простым выбором или может быть обменом?

Обычная линейная сортировка, только с конца.

Огромное спасибо за код...только программа не работает...не могли бы вы перепаверить её, исправить ошибки?...пожалуйста

Ошибок нет. Возможно, ваш компилятор не поддерживает динамические массивы? В чем заключается ошибка?

[U4-nik]

Сообщение от Сtrl

Обычная линейная сортировка, только с конца.

Ошибок нет. Возможно, ваш компилятор не поддерживает динамические массивы? В чем заключается ошибка?

Ошибка в следующем:в объявлении массива пишет " ОЖИДАЛСЯ СИМВОЛ [ "

[U4-nik]

Сообщение от Антон Лысенко

а это точно сортировка простым выбором или может быть обменом? Или это одно и то же? Вроде бы нет!
вот сортировка которая вам нужна :

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  mass:array [1..100] of real;
  i, j, n: integer;
  x: real;
begin
 writeln('Enter size');
  read(n);
  writeln('enter value');
  for i:=1 to n do
    read(mass[i]);

  for i := 2 to n do
    begin
      x := mass[i];
      j := i-1;
      while (j>0) and (x<mass[j]) do
        begin
          mass[j+1] := mass[j];
          j := j-1;
        end;
      mass[j+1] := x;
    end;
  for i:=1 to n do
    write(mass[i]:8:2);
    readln;
    readln;
end.

кстати, код не мой, нашёл на этом же сайте

Этот код только сортирует массив, а нужно чтобы ещё подсчитывалось количество чисел в этом массиве, больших числа , запрашиваемого у пользователя.

[Антон Лысенко]

Сообщение от Сtrl

Обычная линейная сортировка, только с конца.

Ошибок нет. Возможно, ваш компилятор не поддерживает динамические массивы? В чем заключается ошибка?

вбейте в Google "сортировка простым ВЫБОРОМ" и посмотрите что это за сортировка! А то что написали вы это сортировка ОБМЕНОМ (ПУЗЫРЬКОМ) и не надо людей дезинформировать.