Насколько минимальный элемент первого массива отличается от минимального элемента второго

CLS
DIM A(15)
DIM B(15)
FOR I=1 TO 15
INPUT "VVEDITE ELEMENT PERVOGO MASSIVA=";A(I)
INPUT "VVEDITE ELEMENT VTOROGO MASSIVA=";B(I)
NEXT
MIN1=A(1)
MIN2=B(1)
FOR I=1 TO 14
IF MIN1>A(I+1) THEN MIN1=A(I+1)
IF MIN2>B(I+1) THEN MIN2=B(I+1)
NEXT
PRINT "MASSIV1:"
FOR I=1 TO 15
PRINT A(I)
NEXT
PRINT "MASSIV2:"
FOR I=1 TO 15
PRINT B(I)
NEXT
PRINT "MIN1=";MIN1
PRINT "MIN2=";MIN2

CLS
INPUT "VVEDITE KOLI4ESTVO ELEMENTOV V MASSIVE-"; N
IF N > 20 THEN PRINT "4ISLO VISHE 4EM 20": END
DIM B(N)
FOR I = 1 TO N
INPUT "VVEDITE ELEMENT MASSIVA="; B(I)
IF B(I) > 0 THEN S1 = S1 + 1: S2 = S2 + B(I)
NEXT
MIN = B(1)
FOR I = 1 TO N - 1
IF MIN > B(I + 1) THEN MIN = B(I + 1): NOM = I + 1
NEXT
SA = S2 / S1
IF NOM = 0 THEN NOM = 1
PRINT "SREDNEE ARIFMETI4ESKOE POLOJITELNIH ELEMENTOV="; SA
PRINT "MINIMALNIY ELEMENT="; MIN
PRINT "NOMER MINIMALNOGO ELEMENTA="; NOM
IF SA > N THEN
PRINT "TAK KAK SrArefm BOLSHE VVEDENNOGO 4ISLA, MASSIV PEREFORMIROVALI:"
FOR I = 1 TO N
IF B(I) > 0 THEN B(I) = B(I) + MIN ELSE
IF B(I) < 0 THEN B(I) = B(I) - MIN
PRINT B(I)
NEXT
END IF

CLS
INPUT "VVEDITE KOLI4ESTVO ELEMENTOV MASSIVA="; N
DIM A(N)
FOR I = 1 TO N
INPUT "VVEDITE ELEMENT MASSIVA-"; A(I)
NEXT
MAX = A(1)
MIN = A(1)
FOR I = 1 TO N - 1
IF MIN > A(I + 1) THEN MIN = A(I + 1): MINNUM = I + 1
IF MAX < A(I + 1) THEN MAX = A(I + 1): MINNUM2 = I + 1
NEXT
IF MINNUM = 0 THEN MINNUM = 1
SWAP A(MINNUM), A(MINNUM2)
PRINT "MIN="; MIN
PRINT "MAX="; MAX
PRINT "NOVIY MASSIV:"
FOR I = 1 TO N
PRINT A(I)
NEXT
END