Дана последовательность действительных чисел a1, a2 аn. указать те ее элементы, которые принадлежат отрезка [c, d].

Var   n, t, c, d: integer; begin   readln(n, c, d);   for i: integer : = 1 to n do   begin     readln(t);     if not (t in [c..d]) then       write('не ');     writeln('принадлежит')   end; end.

Если у нас 3 числа, то значит среднее арифметическое будет вычисляться так: (число1 + число2 + число3) / 3. мы можем сократить  число1 + число2 + число3, например суммой всех этих числе сумма / 3.поэтому алгоритм должен быть вроде :   1.создаем переменную для хранения суммы  2.3 раза читаем число, прибавляем его к общей сумме.  3.выводим сумму / 3вот и сам код, думаю на паскале сойдет: beginvar mid : = 0; //создаем переменную для хранения суммы  всех  чисел, после чего разделим ее на 3for var i : = 1 to 3 do //будем 3 раза считывать число с клавиатурыbeginvar num: integer; //создаем переменную для хранения текущего числаreadln(num); //считываем егоmid : = mid + num; //присваиваем mid значение mid + num (текущее число)end; writeln(mid/3); //выводим среднееend.примеры: ввод: 1,2,3вывод: 3ведь (1 + 2 + 3) / 3 = 3ввод: 5, 10, 20вывод: 11.(6)ведь (5 + 10 + 20) / 3 = 11.(6)ввод: 5, 5, 5вывод: 5и так |если не сложно нажми кнопку "" ; )|

1) равносильно: (x& 29 =0) +(x& 9≠0) + x& a  ≠0 =1 рассмотрим, когда сумма двух первые два слагаемых равна 0,                    а третье слагаемое=1 29=11101   первое слагаемое =0 при       ¬29 =  00 010     +  9=1001       > (=0)                     при         9 =   01 001                                                                                                                                                         .. 011         100   < a=100 =42) равносильно: (x& 13=0) + (x& 39 =0) + (x& a≠0)*(x& 13≠0) = 1 рассмотрим, когда сумма двух  первых   слагаемых     =0,             а третье (произведение) =113 = 1101     обратное -->   0010  39= 100111             >       011000                                                 10                                       поразрядное сложение                                           11010   т.е.   0 двум первым сл.(x& a≠0) *x& 13≠0) =1   ?     13 =1101   -->   0010 a=         >             1  (из первого рассуждения     11010+                                                             1                                                    0010                                                                                                        0111   >   a= 1000 =8 3)равносильно: (x& 13=0) *(x& a=0) +x& 13≠0+(x& a≠0)*(x& 39=0) =1 рассмотрим, когда первое произведение =0: 13 =1101   > обратное-->   > a=2 =10(в 2с/с)(x& 13≠0) можно и не учитывать (пока) рассмотрим (x& a≠0) * (x& 39=0) =1 это будет при а=011000, обратном (39=100111) складываем оба а: 011000         10     11010 = 2^4+2^3+2 = 28   < ответ