помогите сделать задачи, написать программы в Qbasic
1. Найти максимальное среди всех введеных с клавиатуры чисел.
2. Среди всех чисел, введенных с клавиатуры, все отрицательные заменить на положительные (пример -8 заменяется 8), положительные остаются такими же. И вывести все это на экран.
3. Создается два массива с(5) и д(5). Сформировать массив м(5) путем вычитания элементов д из с. Найти сумму положительных элементов в массиве м(5).

Ввод значения -777 является прзником конца ввода данных.

*признаком

INPUT nm = nDO WHILE n <> -777  INPUT n  IF n > m THEN m = nLOOPPRINT mПример? 42? 39? -50? 127? 0? 14? -777 127----------------------DIM a(1 TO 100)CLSi = 0DO   INPUT n   IF n <> -777 THEN      i = i + 1      a(i) = ABS(n)   END IFLOOP UNTIL n = -777n = iFOR i = 1 TO n  PRINT a(i); " ";NEXT iПример? 45? -12? 0? 23? -5? 14? -777 45   12   0   23   5   14----------------------DIM c(1 TO 5), d(1 TO 5), m(1 TO 5)CLSPRINT "c(5):"FOR i = 1 TO 5   INPUT c(i)NEXT iPRINT "d(5):"FOR i = 1 TO 5   INPUT d(i)NEXT iPRINT "m(5)=";s = 0FOR i = 1 TO 5  m(i) = c(i) - d(i)  IF m(i) > 0 THEN s = s + m(i)  PRINT m(i);NEXT iPRINTPRINT "s="; sПримерc(5):? 5? 12? -6? 0? 17d(5):? -2? 7? 13? -11? -5m(5)= 7  5 -19  11  22s= 45