Цитата:
Сообщение от Lotoros
For i=1 To 10'Цикл вывода сообщения о вводе элемента массива
TextWindow.WriteLine("Введите "+i+" элемент массива")
a[i]=TextWindow.ReadNumber()
EndFor
For i=1 To 10'Цикл создания массива из целых частей после деления на 2
b[i]=Math.Remainder(a[i],2)
EndFor
For i=1 To 10'Цикл условий на остаток и суммы
If b[i]=0 Then
For i=1 To 10
s=0
s=s+a[i]
EndFor
Else
For i=1 To 10
k=0
k=k+a[i]
EndFor
EndIf
EndFor
TextWindow.Write("Сумма чётных="+s)
TextWindow.Write("Сумма нечётных="+k)
|
то что выделенно красным объявить перед циклом, поскольку у тебя на каждом шаге идёт зануление и прибавление последующего элемента.