Question

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

Answer 1

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