пожалуста помогите найти ошибку. - Общие вопросы Delphi

zvezda111 · 20.12.2013, 00:08

Sub massiv()
Dim a()
n = Cells(4, 2).Value
ReDim a(10)
' поиск суммы элементов массива, стоящих на четных местах
Sum = 0
For i = 2 To 10 Step 2
S = S + 2

Next i
MsgBox "сумма = " & S
Cells(6, 5).Value = S

End Sub

Человек_Борща · 20.12.2013, 00:14

ошиблись разделом

20.12.2013, 00:08	#1
zvezda111 Новичок Джуниор Регистрация: 19.12.2013 Сообщений: 6	пожалуста помогите найти ошибку. Sub massiv() Dim a() n = Cells(4, 2).Value ReDim a(10) ' поиск суммы элементов массива, стоящих на четных местах Sum = 0 For i = 2 To 10 Step 2 S = S + 2 Next i MsgBox "сумма = " & S Cells(6, 5).Value = S End Sub

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
пожалуста помогите найти ошибку.	zvezda111	Помощь студентам	8	20.12.2013 22:30
Помогите найти ошибку - StrToFloat выдаёт ошибку EConvertError для ячеек StringGrid (Delphi)	Artsiom	Помощь студентам	10	18.12.2013 14:10
Помогите найти ошибку	REztor	Помощь студентам	5	16.03.2009 20:04

20.12.2013, 00:14	#2
Человек_Борща Старожил Регистрация: 30.12.2009 Сообщений: 11,434	ошиблись разделом