Определить максимальный элемент массива и его порядковый номер - 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% ""