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

Формулировка задачи:

Даны два массива: А, состоящий из N элементов и В, состоящий из N элементов. Сформировать массив C по следующему правилу ____{max(A(i), B(i)) , i=1, K; K<N C(i)={min(A(i) , B(i)), i=K+1, N напишите пожалуйста программу Результат распечатать в виде: Число элементов: Исходный массив А: Исходный массив В: Новый массив С:

Решение задачи: «Даны два массива: А, состоящий из N элементов и В, состоящий из N элементов»

Листинг программы

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

Объяснение кода листинга программы

Объявляются две функции: Max% и Min% для нахождения максимального и минимального значения из двух чисел.
Задаются начальные значения переменных: k = 2 + INT(10 RND), n = k + 1 + INT(7 RND).
Задаются массивы A(n) и B(n) по n случайных чисел от 0 до 80 с шагом -40.
Выводится сообщение с значениями переменных k и n.
Выводятся массивы A и B по одному элементу на строку.
Задается массив C(n) по принципу: если i <= k, то C(i) = Max(A(i), B(i)), иначе C(i) = Min(A(i), B(i)).
Выводится сообщение с значениями переменных k и n.
Выводятся массив C(n) по одному элементу на строку.
В функции Max% сравниваются числа p и q, и возвращается большее.
В функции Min% вычисляется разность p + q - Max(p, q) и возвращается результат.