Даны два массива: А, состоящий из N элементов и В, состоящий из N элементов - QBasic - Ответ 11938085

DECLARE FUNCTION Max% (p%, q%)
DECLARE FUNCTION Min% (p%, q%)
 
CLS
RANDOMIZE TIMER
k = 2 + INT(10 * RND)
n = k + 1 + INT(7 * RND)
 
DIM A(n) AS INTEGER
DIM B(n) AS INTEGER
DIM C(n) AS INTEGER
 
PRINT "N ="; n
PRINT "K ="; k
PRINT
PRINT "MASSIV A:"
 
FOR i = 1 TO n
   A(i) = 80 * RND - 40
   PRINT USING "####"; A(i);
NEXT
 
PRINT : PRINT
PRINT "MASSIV B:"
 
FOR i = 1 TO n
   B(i) = 80 * RND - 40
   PRINT USING "####"; B(i);
NEXT
 
FOR i = 1 TO n
   IF i <= k THEN
      C(i) = Max(A(i), B(i))
   ELSE
      C(i) = Min(A(i), B(i))
   END IF
NEXT
 
PRINT : PRINT
PRINT "MASSIV C:"
 
FOR i = 1 TO n
   PRINT USING "####"; C(i);
NEXT
END
 
FUNCTION Max% (p AS INTEGER, q AS INTEGER)
   IF p > q THEN Max = p ELSE Max = q
END FUNCTION
 
FUNCTION Min% (p AS INTEGER, q AS INTEGER)
   Min = p + q - Max(p, q)
END FUNCTION