Версия для печати темы

Автор: savedata 3.10.2011, 7:03

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.

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

Автор: savedata 3.10.2011, 12:42

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

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

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;

Маст хэв!

Автор: tig81 3.10.2011, 13:02

Опять нас ущемляют