Ответы и объяснения

2014-04-12T19:36:11+04:00
Var a:array of integer;
n,i:integer;
begin
readln(n);
setlength(a,n);
for i:=0 to n-1 do begin
a[i]:=random(1,n);
write(a[i],' ');
end;
end.