VBA -программирование

Question

Дан ряд чисел yi(i=1,2,...n)Записать +1 вместо максимального элемента и -1 вместо минимального элемента массива y. Решить через Mirfosoft Office Excel 2007

Людмила Гошко · Accepted Answer

' заполните в первой строке 10 клеток с числами
sub ppp()

mmax = cells(1,1)

iimax = 1

mmin = cells(1,1)

ii min = 1

for ii = 1 to 10

if cells(1, ii) > mmax then

iimax = ii

mmax = cells(1, ii)

endif

if cells(1, ii) < mmin then

iimin = ii

mmin = cells(1, ii)

endif

next ii

cells(1,iimax) = 1

cells(1,iimin) = -1

end sub