Дан одномерный целочисленный массив В состоящий из 16 элементов найти максимальный элемент массива и его порядковый номер.

DIM b(16)CLSFOR i = 1 TO 16INPUT "INPUT element", b(i)NEXT i max = b(1) imax = 1 FOR i = 1 TO 16IF b(i) > max THENmax = b(i) imax = iEND IFNEXT iFOR i = 1 TO 16PRINT b(i);NEXT i PRINT PRINT max, imax