как задать массив в программе?

[m.a.x.i.m]

procedure TForm1.Button1Click(Sender: TObject);
var a:array[0..2] of integer;
begin
a:=(4,8,6);//ошибка
end;

уже 2 часа ищу, если задавать массив как канстанту то все хорошо:

const
a: array[0..2] of integer = (1,2,4);

массив большой очень и он не должен быть константой...

[ManU]

Не знаю где ты уже 2 часа ищешь.
Я набрал в гугле: Массивы на паскале.
Открыл первую же ссылку и о чудо

for i:=0 to m do //m=2 в твоем случае
a[i]:=<число>;

[fbus]

о чудеса!
а если подумать? как ты в массив таким способом забьешь разные числа?

[ManU]

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

о чудеса!
а если подумать? как ты в массив таким способом забьешь разные числа?

Что за глупый вопрос?
Ну тогда так

Randomize;
for i:=0 to m do
mas[i]:=Random(<число>);

Если и так не устраивает, то

for i:=0 to m do
Read(mas[i]);

Доволен?

[Armorer]

Сообщение от m.a.x.i.m

если задавать массив как канстанту то все хорошо:

const
a: array[0..2] of integer = (1,2,4);

массив большой очень и он не должен быть константой...

Все правильно, нужно делать константу, других вариантов нет. Почему он не должен быть константой?

[ManU]

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

Все правильно, нужно делать константу, других вариантов нет.

Надеюсь это была шутка.

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

Почему он не должен быть константой?

Да потому что кроме чтения ячейки массива ты ничего не сможешь сделать
Поясняю для одаренных:
1) Записать что-либо в массив будет нельзя;
Следовательно
2) перестановка элементов в массиве не возможна

[IT-man]

const
a: array[0..2] of integer = (1,2,4);

а задайте его так же только в разделе var и все будет доступно

var
a: array[0..2] of integer = (1,2,4);

[Armorer]

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

Надеюсь это была шутка.

Да потому что кроме чтения ячейки массива ты ничего не сможешь сделать
Поясняю для одаренных:
1) Записать что-либо в массив будет нельзя;
Следовательно
2) перестановка элементов в массиве не возможна

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

var
a: array[0..2] of integer = (1,2,4);

Если сделать так, то массив будет с самого начала забит определенными значениями. Когда массив нужно сначала использовать, а только потом поместить в него значения, то требуется заранее определённая константа.

Пример.

type
  TypeA = array[0..3] of integer;

const
  ConstA : TypeA = (1,3,4,3);

var
  A : TypeA = (1,2,3,4); // Начальные значения, если нужно

procedure TForm1.FormCreate(Sender: TObject);
begin


  A := ConstA;

end;

[IT-man]

Когда массив нужно сначала использовать, а только потом поместить в него значения, то требуется заранее определённая константа.

А пример можно того как его сначала использовать- а потом поместить в него значения7 И для чего можно использовать Пустой массив7

[Armorer]

Задача.
Заполнить массив случайными числами, отсортировать. Вывести наибольшее число. Заполнить массив числами (1,3,4,2,3), отсортировать. Вывести наибольшее число. Использовать один массив. Данные вводить программно (без Read, файлов и тп).