Код IT
← Каталог

Pascal / Free Pascal — типовые программы — Шаблон C — динамический массив (`SetLength`)

Фрагмент из «Pascal / Free Pascal — типовые программы»: Шаблон C — динамический массив (`SetLength`).

pascal lab1140 embed URL статья в энциклопедии
Pascal main.pas 
program DynamicArray;

var
  n, i: integer;
  a: array of integer;

begin
  ReadLn(n);
  SetLength(a, n);
  for i := 0 to n - 1 do
    Read(a[i]);
  ReadLn;
  { работа с a[0].a[n-1] }
end.
program DynamicArray;

var
  n, i: integer;
  a: array of integer;

begin
  ReadLn(n);
  SetLength(a, n);
  for i := 0 to n - 1 do
    Read(a[i]);
  ReadLn;
  { работа с a[0].a[n-1] }
end.