насколько я понял условие, то 1я
uses crt;
const n=10;
var i,min,t,t1,k:integer;
a:array[1..n] of integer;
begin
clrscr;
readln(k);
randomize;
a[1]:=random(30)-15;
min:=a[1];
write(a[1],',');
t1:=1;
for i:=2 to n do
begin
a[i]:=random(30)-15;
write(a[i],',')...