uses crt; 
var b:array[1..10] of integer; 
       c:array[1..15] of integer; 
 
procedure FillArray(var arr:array of integer); 
var k:integer; 
begin 
  randomize; 
  for k:=Low(arr) to High(arr) do arr[k]:=random(100); 
end; 
 
function SearchMin(arr:array of integer):integer; 
var k,Min:integer; 
begin 
  Min:=arr[1]; 
  for k:=Low(arr) to High(arr) do 
  if arr[k]then Min:=arr[k]; 
  SearchMin:=Min; 
end; 
 
begin 
  ClrScr; 
  FillArray(b); 
  FillArray(c); 
  writeln('MinB-MinC= ',SearchMin(b)-SearchMin(c)); 
  write('Press any key to EXIT...'); 
  readkey; 
end.