zadach24.BAS

{* Задача24 *}

REM basic

' Дан массив а1, а2, …, аn. Найти величину S=S1-S2, где S1 – сумма элементов с четными номерами, S2 – сумма элементов с нечетными номерами


CLS
INPUT "Введите число элементов массива"; n
Dim a(n)
For i=1 To n
PRINT "Введите a("; i; ")"
INPUT a(i)
Next i
For i=1 To n
PRINT a(i);
Next i
PRINT
S1=0
S2=0
For i=1 To n
If i Mod 2=0 Then
S1=S1+a(i)
Else
S2=S2+a(i)
End If
Next i
S=S1-S2
PRINT "Сумма="; S
End