Определить максимальный элемент массива и его порядковый номер - 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% ""
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
