Помогите с информатикой, паскаль

Question

Помогите с информатикой, паскаль

Дима Калугин Профи (708), закрыт 3 года назад

Разработать схему алгоритма, который запрашивает массив из N целых чисел, а затем складывает все элементы с нечётными номерами и все элементы с чётными номерами и выводит на экран сообщение о том, чья сумма больше

Answer 1

begin
s1 := 0; s2 := 0;
for i:=1 to N do readln( A[i] );
for i:=1 to N do
if i mod 2 = 0 then s2 := s2 + A[i] { индекс четный }
else s1 := s1 + A[i];
if s1 > s2 then writeln('нечет больше')
else writeln('чет больше')
end.