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

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

Сообщение от U4-nik

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

Правильный подсчёт элементов у вас уже есть. А вот сортировки не было вот я и написал вам недостающее.

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

Сообщение от U4-nik

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

и что было трудно додуматься что если надо такой символ "[", то значит массив так нужно описать

 mas:array [1..100] of real;

???

[U4-nik]

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

и что было трудно додуматься что если надо такой символ "[", то значит массив так нужно описать

 mas:array [1..100] of real;

???

Я так описывал, программа всё равно не работает!
Если не трудно, можно полный код программы?

[Mad_Cat]

Я так описывал, программа всё равно не работает!

потому что если компилятор не поддерживает обьявление дин Массивов ===> он не поддерживает и работу с ними)

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

Сообщение от U4-nik

Я так описывал, программа всё равно не работает!
Если не трудно, можно полный код программы?

не трудно вот:

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;
const M=100;
var
  mass:array [1..M] of real;
 Count,i,j,n,Value:integer;
  x:real;
begin
//Ввод фактического размера массива
 writeln('Enter size of array');
  read(n);
//Ввод элементов массива
  writeln('Enter the values of array elements ');
  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;
     Writeln('Sorted array');
  for i:=1 to n do
    write(mass[i]:8:2);
    writeln;


 //Подсчте элементов больших за введенное число
  writeln('Enter the value to scan for in array');
  readln(Value);

 count:=0;
  for i:=1 to n do
   if value<mass[i]then
    Inc(Count);

    writeln('Large number of elements for the requested = ',Count);
    readln;
    readln;
end.

[U4-nik]

Спасибо,работает, только не находит модуль,, но это не столь важно...
СПАСИБО!

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

Сообщение от U4-nik

Спасибо,работает, только не находит модуль,, но это не столь важно...
СПАСИБО!

какой модуль?