[@Lotoros]

For i=1 To 10'Цикл вывода сообщения о вводе элемента массива
TextWindow.WriteLine("Введите "+i+" элемент массива")
a[i]=TextWindow.ReadNumber()
EndFor
k=0
s=0

For i=1 To 10'Цикл условий на остаток и суммы
If a[i]=Math.Remainder(a[i],2)=0 Then


s=s+a[i]

Else


k=k+a[i]

EndIf

EndFor
TextWindow.Write("Сумма чётных="+s)
TextWindow.Write("Сумма нечётных="+k)

Теперь прога выдаёт просто сумму всех элментов массива