В заданном массиве X(N) замените нулями все отрицательные компоненты, непосредственно предшествующие его максимальной компоненте - QBasic
Формулировка задачи:
В заданном массиве X(N) замените нулями все отрицательные компоненты, непосредственно предшествующие его максимальной компоненте(перво по порядку, если их несколько).
Решение задачи: «В заданном массиве X(N) замените нулями все отрицательные компоненты, непосредственно предшествующие его максимальной компоненте»
textual
Листинг программы
- INPUT "vvedite kol-vo elementov ",n
- DIM x(n)
- FOR i=1 TO n
- INPUT"vvedite element ",x(i)
- NEXT
- PRINT"ishodnyj massiv"
- FOR i=1 TO n
- PRINT x(i);
- NEXT
- max=1
- FOR i=1 TO n
- IF x(i)>x(max) THEN max=i
- NEXT
- FOR i=1 TO max-1
- IF x(i)<0 THEN x(i)=0
- NEXT
- PRINT"novyj massiv"
- FOR i=1 TO n
- PRINT x(i);
- NEXT
Объяснение кода листинга программы
- Пользователю предлагается ввести количество элементов в массиве (n).
- Создается массив x(n) и заполняется пользователем.
- Выводится исходный массив.
- Находится номер максимального элемента массива (max).
- Заменяются нулями все отрицательные элементы, предшествующие максимальной компоненте.
- Выводится измененный массив.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
