Ответ:

program test;

var c: array [1..8] of integer;

i,m: integer;

begin

randomize;

for i:=1 to 8 do

begin

c[i]:=random(21)-10;

if i=1 then m:=c[i] else

if c[i]<m then m:=c[i];

write(c[i],' ')

end;

writeln;

write(m)

end.