В новом массиве r найти произведение элементов, расположенных до минимального элемента - VB
Формулировка задачи:
Вывести одномерные массивы x{-6,0.5,0.12,13,-10.1} и y={13,2.1,14,6,-2}.
Создать одномерный массив r() такой, что элементы с нечетными
номерами являются элементами массива x , с четными номерами -
массива y .Вывести массив r.В новом массиве r найти произведение
элементов,расположенных до минимального элемента.
Решение задачи: «В новом массиве r найти произведение элементов, расположенных до минимального элемента»
textual
Листинг программы
dim x(5),y(5),r(10) data -6,0.5,0.12,13,-10.1,13,2.1,14,6,-2 for i=1 to 5 read x(i) next for i=1 to 5 read y(i) next for i=1 to 5 r(2*i-1)=x(i) r(2*i)=y(i) next for i=1 to 10 print r(i);' '; next min=r(1) for i=1 to 10 if r(i)<min then min=r(i):nmin=i next p=1 for i=1 to nmin-1 p=p*r(i) next print p
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д