Преимущества :
1) хороший дизайн
2) постоянная работа над приложением
3) простота работы
4) есть пробный период для ознакомления
5) легко лечится(до версий 2016)
Недостатки :
1) платная
2)долгие обновления
В цикле от 1 до 10 вводим i-тый элемент массива. Сразу в этом же цикле проверяем два условия:
1) если i < 6 то прибавляем этот элемент к сумме1
2) если i чётное и элемент чётный прибавляем его к сумме2.
С телефона не выделяются абзацы, поэтому сори за вид.
Program zzz; Var s1, s2: integer; x: boolean;Var i: byte; Var M: array[1..10] of integer; Begin s1:=0; s2:=0; For i:=1 to 10 do begin Writeln ('введите ',i,'-е число массива'); Readln (M[i]); If i<=5 then s1:=s1+M[i]; if ((i mod 2)=0) and ((M[i] mod 2)=0)Then s2:=s2+M[i]; End; Writeln ('Сумма первых 5 элементов = ',s1);Writeln ('Сумма чётных элементов стоящих на чётных позициях = ',s2);End.
В счетчиках можно вместо 5 указать константу n и где вывод проверку если равен n запятую не печатаем
это просто надо знать имена не могут начинаться с цифры, нижн подчеркивания , не могут быть русскими буквами, не могут начинаться с знака препинания , но в них могут быть нижн подчерк
Ответ
1,2,5,6,8,9