Pascal. Динамический массив

[zena]

Pascal. Динамический массив

Помогите разработать программу на языке Pascal вычисления суммы элементов массива, состоящего из n вещественных чисел. Массив должен быть размещен в памяти динамически, а значения n вводится с клавиатуры.

 

[Vladimir_S]

Помогите разработать программу на языке Pascal вычисления суммы элементов массива, состоящего из n вещественных чисел. Массив должен быть размещен в памяти динамически, а значения n вводится с клавиатуры.

Да пожалуйста - какие проблемы:

TYPE
 T=Array[1..1] of Real;
VAR
 A:^T;
 i,N:Byte;
 Sum:Real;
BEGIN
 {$R-}
 Write('N= ');
 ReadLn(N);
 GetMem(A, SizeOf(Real)*N);
 Randomize;
 Sum:=0;
 For i:=1 to N do
  begin
   A^[i]:=Random*100-50;
   Write(A^[i]:8:3);
   Sum:=Sum+A^[i];
  end;
 Writeln;
 Writeln;
 WriteLn('Sum= ',Sum:10:3);
 FreeMem(A, SizeOf(Real)*N);
 ReadLn;
END.

 

[zena]

Спасибо, жаль только, что в паскале ABC выдаёт ошибку о неверном количестве фактических параметров. Но в турбопаскале всё работает.

 

[Vladimir_S]

Спасибо, жаль только, что в паскале ABC выдаёт ошибку о неверном количестве фактических параметров. Но в турбопаскале всё работает.

Да... Тут уж извините - этого АВС никогда живьем не видел и не жажду. Так что подобные казусы вполне возможны.