Structure is too large

[k1r1ch]

А можно пример?

[Stilet]

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

[russian-stalker]

Вот пример динамического массива:

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;


type
 arr=array [1..1] of integer;
  var
  i,sum,n:integer;
  sred:extended;
  a:^arr;
begin
  write('n= ');
  readln(n);
  getmem(a,sizeof(integer)*n);

  sum:=0;
  randomize;
  for i := 1 to  n do
   begin
     a[i]:=random(25);
     sum:=sum+a[i];
     write(a[i],' ');
   end;

    sred:=round(sum/n);


    writeln;
    for i := 1 to  n do
   begin

    if a[i]=0 then
            a[i]:=1;
      write(a[i],' ');
   end;

    writeln;
   write('Srednee: ', sred:6:2);
   freemem(a,sizeof(integer)*n);


   readln;
end.