BB
Baha Baha
Как решить такую задачу???
Программный модуль на языке VBA, решающий задачу «Для массива из N элементов вычесть из суммы элементов с нечётными индексами сумму элементов с чётными индексами»
Программный модуль на языке VBA, решающий задачу «Для массива из N элементов вычесть из суммы элементов с нечётными индексами сумму элементов с чётными индексами»
sub ppp()
'вместо массива возьмем ячейки 1-й строки
' если не нравится замените на массив
' не забудьте заполнить его
ss1 = 0
ss2 = 0
nn = 11 ' тут поставьте нужное N
for ii = 1 to nn step 2
ss1 = ss1+cells(1,ii)
ss2 = ss2+cells(1,ii+1)
next ii
msgbox("разность сумм равна "&(ss1-ss2))
end sub
головой
А если элементов нечетное количество, то что с последний делать?