В цикле от 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.
Обозначим буквами Я - яблоки Г - груши Ж - жёлтые З - зелёные Б - большие М - маленькие
Всего теоретически возможно 8 видов фруктов: ЯБЖ ЯБЗ ЯМЖ ЯМЗ ГБЖ ГБЗ ГМЖ ГМЗ Не было маленьких груш и маленьких зеленых яблок, значит ГМЖ, ГМЗ и ЯМЗ вычёркиваем. Остаётся 5 видов: ЯБЖ ЯБЗ ЯМЖ ГБЖ ГБЗ Теперь считаем: 1) всего было 25 + 17 = 42 фрукта. Из них больших 32, а маленьких 10. Значит ЯМЖ = 10 2) всего жёлтых 28, значит зелёных 42 - 28 = 14, из них яблок на 2 больше, чем груш. Значит ЯБЗ = 8, а ГБЗ = 6 3) всего яблок 25, из них маленьких 10, значит больших 25 - 10 = 15. То есть ЯБЖ + ЯБЗ = 15, откуда ЯБЖ = 15 - ЯБЗ = 15 - 8 = 7 ответ: больших жёлтых яблок было 7 штук
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
