Как присвоить значение константе?

Question

[pashulke]

Есть задача:

Дана последовательность целых чисел. Отсортируйте ее.Формат входных данных.В первой строке дано целое число n(1<=n<=1000) -
количество элементов последовательности. Во второй строке заданы сами элементы --- целые числа, не превосходящие по абсолютной величине 10^9 .Формат выходных данных.Выведите n чисел --- элементы заданной последовательности в порядке неубывания.

Я не пойму как мне её вообще писать, если к константе нельзя присвоить значение переменной.

var a: array[1..n] of integer;
А n должно ведь быть константным значением, но как это сделать, если значение n я беру из файла?
readln (g, n);

Answer 1

[Mintormo]

Если речь про стандартный Паскаль, то там нет массивов переменной длины. Можно использовать фиксированный массив достаточно большой длины, надеясь что реальные данные будут меньше.

Comments

[pashulke]

Длина там до 1000, но не в этом дело. Эта задача в контестер, проверка проходит автоматически. А элементы массива, которым не присвоены значения равняются ведь нулю? Тогда если я отсортирую массив, в начале там будут сотни нули, допустим, а только в конце остальне числа, то тогда котестер задачу примет как неверную - вот в чём проблема.

[zed]

@pashulke: А вы при сортировке задавайте границы массива.

Answer 2

[SilentFl]

1) задаете массив максимальной возможной длины, в данном случае 1000
2) в первой строке у вас задано количество элементов, считываете в переменную
3) сортируете элементы 1..n
4) выводите элементы 1..n
Примерно так:

const M = 1000;
var a: array [1..M] of integer;
  n, i: integer;
function sort(count: integer)
var i,j, tmp: integer;
begin
  for i:=1 to count-1 do
    for j:=i to count-1 do
      if a[j]>a[j+1] then
        tmp:=a[j]; a[j]:=a[j+1]; a[j+1]:=tmp;
      end;
end;
begin
  readln(n);
  for i:=1 to n do read(a[i]);
  sort(1,n);
  for i:=1 to n do write(a[i], ' ');
end.