Помогите сделать задачи, написать программы в Qbasic 1. Найти максимальное среди всех введеных с клавиатуры чисел. 2. Среди всех чисел, введенных с клавиатуры, все отрицательные заменить на положительные (пример -8 заменяется...
Помогите сделать задачи, написать программы в 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
Не нашли ответ?
Похожие вопросы