program addmass;
uses crt;

type mas=array[1..1000] of real;

procedure addmas(a:mas;b:integer);
var j:integer;
begin
randomize;
for j:=1 to b do
begin
a[j]:=random(100)-50;
end;
end;

var x:mas;
i,n:integer;

begin
clrscr;
write('enter long of array - n=');
readln(n);

addmas(x,n);

for i:=1 to n do
begin
write(x[i]:0:1,' ');
end;
readln;
end.

В итоге массив Х остается с пустыми значениями! Почему? Такое ощущение что создается массив А.

Мужики! Я поридил хелп Паскалевский и все понял!

Нужно процедуру задавать так:

procedure addmas(var a:mas;var b:integer);
var j:integer;
begin
randomize;
for j:=1 to b do
begin
a[j]:=random(100)-50;
end;
end;

Маст хэв!

(IMG:style_emoticons/default/sad.gif) Опять нас ущемляют

(IMG:style_emoticons/default/thumbsup.gif)