Массивы

[Lulu0701]

Задание такое: Зполните одномерный массив так,чтобы все его элементы были различны. Размеры массива возьмите произвольно. Программа пишется в turbo delphi я новичок,совершенно не знаю,как программировать,но вот что вышло,исправьте ошибки.

var A:array [1..10] of integer;
n,i:integer;
begin
randomize
readln (n);
for i:=1 to n do
begin 
n [i]:=random (15);
end;
//writeln (n[i]);
for i:=1 to n do
begin

как дальше?

[Poma][a]

const
    SIZE = 100;

<...>

Randomize;

n := Random (SIZE);

for i := 1 to n do
     a[i] := i;

for i := 1 to n do begin
  // подозреваю, что Вы не знаете о пользовательский проц\функ
  TempIndex := Random (n+1);
  TempValue := a[i];
  a[i] := a[TempIndex];
  a[TempIndex] := TempValue
end;

// теперь вывод

P.S. На форуме такое обсуждалось огромное кол-во раз, в следующий раз - воспользуйтесь, пожалуйста, поиском.

Удачи!

[Lulu0701]

Если честно,я вообще ноль, я мучаюсь уже 3-ий день. Зато сама хоть написала начало. Спасибо вам.

[Poma][a]

В дельфи? Нет у нас такого добра..

const
  SIZE = 100;

var
  a : array of Integer;
  n, i, TempIndex, TempValue : Integer; 

begin
  Randomize;

  n := Random (SIZE);
  
  SetLength (a, n);

  for i := 0 to n-1 do
     a[i] := i;

  for i := 0 to n-1 do begin
    // подозреваю, что Вы не знаете о пользовательский проц\функ
    TempIndex := Random (n);
    TempValue := a[i];
    a[i] := a[TempIndex];
    a[TempIndex] := TempValue
  end;

  for i := 0 to n do
    Write (a[i], ' ')
end.

[Lulu0701]

А я начала в console application. исправлюсь