В новом массиве 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

6   голосов , оценка 4.5 из 5
Похожие ответы