Сформируйте два массива A и B, предварительно определив их длину - QBasic

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

1. Дан массив С(10). Сформируйте из него два массива A и B, предварительно определив их длину, включая в массив A четные положительные элементы. 2. Кол-во посещений кабинетов врачей поликлиники хранится в массиве. Нечетный элемент массива определяет номер кабинета, четный - кол-во посещений. Определите и выведите на экран число посещений каждого кабинета и общее число посещений. п.с. буду очень благодарен, помощь очень нужна)

Решение задачи: «Сформируйте два массива A и B, предварительно определив их длину»

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

CLS
 
INPUT "Kol-vo kabinetov: ", k
IF k = 0 THEN PRINT "Oshibka! Chislo kabinetov nado > 0... Vihod...": END
DIM m(k * 2 + 1)
FOR i = 1 TO k
   INPUT "Nomer kabineta    : ", m(i * 2)
   INPUT "Kol-vo poseshenij : ", kp
   m(i * 2 + 1) = kp
   s = s + kp
NEXT
 
WIDTH 80, 50
 
PRINT "Nomer kabineta     Kol-vo poseshenij "
PRINT STRING$(80, CHR$(196))
FOR i = 1 TO k
   PRINT "      "; m(i * 2), ; SPC(12); m(i * 2 + 1)
NEXT
PRINT STRING$(80, CHR$(196))
PRINT "Vsego poseshenij: "; s

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

Сначала пользователю предлагается ввести количество кабинетов.
Если пользователь ввёл ноль, выводится сообщение об ошибке и программа завершается.
Далее, с помощью цикла, пользователю предлагается ввести номер каждого кабинета и количество посещений для каждого из них.
Полученные данные сохраняются в массиве m.
Затем, выводится таблица с номерами кабинетов и количеством посещений.
В конце выводится общее количество посещений, которое вычисляется как сумма всех посещений.