program kk; uses crt; const n=10; var a:array[1..n] of integer; var i:integer; BEGIN clrscr; randomize; for i:=1 to n do a[i]:=random(20)-10; begin writeln('masiv'); for i:=1 to n do write(a[i]:5); readln; ENd; end.