Определить количество элементов массива, предшествующих первому отрицательному - QBasic
Формулировка задачи:
Дан массив Р1,...,Р15.Определить N-колличество Р(i),предшествующих первому отрицательному P(i).Если N < 7,то заменить отрицательное P(i )на 0.
Решение задачи: «Определить количество элементов массива, предшествующих первому отрицательному»
textual
Листинг программы
- FOR i=1 TO 15
- IF t=0 AND p(i)>=0 THEN n= n+1 ELSE t=1
- NEXT i
- FOR i =1 TO 15
- IF n<7 AND p(i)<0 THEN p(i)=0
- NEXT i
Объяснение кода листинга программы
В этом коде выполняются два цикла for, которые проходят по элементам массива p от индекса 1 до 15.
- Первый цикл проверяет условие t=0 AND p(i)>=0. Если это условие истинно, то переменная n увеличивается на 1. Если условие ложно, то переменной t присваивается значение 1.
- Второй цикл проверяет условие n<7 AND p(i)<0. Если это условие истинно, то соответствующий элемент массива p заменяется на 0. Таким образом, в результате выполнения этого кода в массиве p будет отмечено семь или более отрицательных элементов, а остальные элементы останутся без изменений.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
