Составить программу на паскале. имеется целочисленный массив, состоящий из 10 элем-тов. а) найти сумму первых 5 элементов; б) найти сумму чётных элементов стоящих на чётных позициях.
В цикле от 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.
Кто учавствовал: Мужчина в четвёртом ряду (На данном этапе нельзя сказать, что это Серж) Стелла Герман Марго Пётр
Какие были предметы: Пудреница Фигура Фемиды Пепельница Предмет посуды из серебра Подстаканник Предмет из меди Предмет из хрусталя Медный соусник (Пока нельзя сказать, что "Предмет из меди" = "Медный соусник") Изделие из бронзы
Какие были материалы: Фарфор Серебро Медь Хрусталь Бронза => Так как каждый участник купил по одному предмету, и количество предметов и материалов совпадают, делаем вывод, что каждый предмет сделан из разных материалов => Предмет из меди - это медный соусник
Вот теперь разбираемся с ценами: 1. Фигура Фемиды может стоить только 7, 7.5 или 9.5 2. Пепельница и предмет посуды из серебра могут стоить только 7.5, 9.5 или 10 3. Подстаканник Стеллы и покупка Германа могут стоить только 7 и 7.5, 9.5 и 10, или 10 и 10.5 4. Медный соусник и предмет из хрусталя могут стоить только 7 и 10, или 7.5 и 9.5 5. "Марго, Пётр и Стелла оставили на аукционе 24,5 руб" => их покупки могут стоить только 7, 7.5 и 10 (это единственная возможная тройка) => Герман не мог потратить 7, 7.5 и 10, т.к. не учавствовал в 5., а Стелла наоборот, могла потратить только 7, 7.5 и 10 => Вариант "7 и 7.5" из 3. исключается => Подстаканник стоит 10, покупка Германа 9.5, т.к. подстаканник дороже, а 10.5 Стелла потратить не могла
=> Так как в 5. купили медный соусник, то он может стоить только 7 или 7.5
Цены после выше изложенного: 1. Фигура Фемиды может стоить только 7 или 7.5 2. Пепельница и предмет посуды из серебра могут стоить только 7.5, 9.5 или 10 3. Подстаканник Стеллы стоит 10, покупка Германа стоит 9.5 4. Медный соусник и предмет из хрусталя могут стоить только 7 и 10, или 7.5 и 9.5 5. Марго и Пётр потратили 7 и 7.5, среди их покупок было изделие из бронзы и медный соусник => Марго и Пётр купили фигуру Фемиды и медный соусник за 7 и 7.5 (т.к. в этот ценовой диапазон попадает только фигура и соусник) => Пётр купил фигуру Фемиды, т.к она ушла мужчине в 4-м ряду => Марго купила медный соусник => Фигура Фемиды бронзовая => Серж потратил 10.5, т.к. остальные траты распределены между участниками => Пепельница и предмет посуды из серебра не могут стоить 7.5, значит их могли купить только Герман и Стелла => Стелла купила серебряный подстаканник за 10, а Герман пепельницу за 9.5 => Марго купила медный соусник за 7.5, а Герман хрустальную пепельницу за 9.5 => Фарфоровую пудреницу купил Серж за 10.5, а Пётр бронзовую фигуру Фемиды за 7
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.