var a:array[1..1000] of integer; i,n:integer;
begin
write('введити кол-во эл-тов массива: ');readln(n);
for i:=1 to n do begin a[i]:=random(201)-50; write(a[i]:4); end;
end.