Определить максимальный элемент массива и его порядковый номер - VB

Узнай цену своей работы

Формулировка задачи:

Господа-знатоки! Очень прошу помочь со следующей задачей: Определить максимальный элемент массива B(50) и его порядковый номер.Условия и ограничения:Xi>0.Заранее огромное спасибо!

Решение задачи: «Определить максимальный элемент массива и его порядковый номер»

textual
Листинг программы 
DIM i AS INTEGER
DIM a(1 TO 50) AS INTEGER
FOR i = 1 TO 50
 PRINT "vvedite"; i; "-element",
 INPUT a(i)
NEXT i
maxi% = 1
FOR i = 1 TO n
 IF a(i) > a(maxi%) THEN maxi% = i
 elem%=a(i)
NEXT i
 PRINT "Maximalniy element = "; a(maxi%);"=";elem% ""

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

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

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

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