5лет
Образовательный путь
+2Помогите с информатикой, паскаль
Разработать схему алгоритма, который запрашивает массив из N целых чисел, а затем складывает все элементы с нечётными номерами и все элементы с чётными номерами и выводит на экран сообщение о том, чья сумма больше
По дате
По рейтингу
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.