Программирование алгоритмов циклической структуры с заданным числом повторений

Question

Даны 10 чисел. Написать программу, которая находит порядковый номер наибольшего по модулю числа. (VBA Basic)

Светлана Лешина · Accepted Answer

' элементы расположены в первых 10 столбцах первой строки листа 
sub ppp() 
imax = 1 
smax = cells(1,1) 
for ii = 1 to 10 
if cells(1,ii) > smax then 
imax = ii 
smax = cells(1,ii) 
endif 
next ii 
msgbox("максимальный элемент имеет номер: "&str(imax)) 
end sub