Помогите с Массивом в Pascal

[Natsu]

Помогите с одномерным массивом пожалуйста

Задание: Создать числовой массив A[1..N]. Значения N вводится с клавиатуры.
Каждый элемент равный нулю, заменить средним арифметическим всех элементов, вывести на экрано содержимое измененного массива.

Очень благодарен всем кто хотя бы заглянул в тему.

[Lemo]

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

 const
   n=10;

  var
  i,sum:integer;
  sred:extended;
  a:array [1..n] of integer;

begin
 // write('n= ');
 // readln(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);


   readln;
end.

Все в основном готово, но проблема возникла, с обозначением длины массива, через переменную вводимую с клавиатуры....

[Natsu]

ты просто король спасибо тебе огромное

[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.