Помогите сделать задачи, написать программы в Qbasic 1. Найти максимальное среди всех...

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

INPUT n
m = n
DO WHILE n <> -777
INPUT n
IF n > m THEN m = n
LOOP
PRINT m

Пример
? 42
? 39
? -50
? 127
? 0
? 14
? -777
127

----------------------

DIM a(1 TO 100)
CLS
i = 0
DO
   INPUT n
   IF n <> -777 THEN
      i = i + 1
      a(i) = ABS(n)
   END IF
LOOP UNTIL n = -777
n = i
FOR 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)
CLS
PRINT "c(5):"
FOR i = 1 TO 5
   INPUT c(i)
NEXT i
PRINT "d(5):"
FOR i = 1 TO 5
   INPUT d(i)
NEXT i
PRINT "m(5)=";
s = 0
FOR i = 1 TO 5
m(i) = c(i) - d(i)
IF m(i) > 0 THEN s = s + m(i)
PRINT m(i);
NEXT i
PRINT
PRINT "s="; s

Пример
c(5):
? 5
? 12
? -6
? 0
? 17
d(5):
? -2
? 7
? 13
? -11
? -5
m(5)= 7 5 -19 11 22
s= 45