Найти среднее арифметическое элементов последовательности превосходящих некоторое число с. размер произвольный. c вводится с экрана.

Var
  i,n,k:integer;
  t,s,c:real;
 
begin
  Write('c='); Read(c);
  Write('Количество чисел: '); Read(n);
  s:=0; k:=0;
  Write('Вводите: ');
  for i:=1 to n do begin
    Read(t);
    if t>c then begin
      s:=s+t;
      k:=k+1
      end
    end;
  if k>0 then Writeln('Среднее арифметическое: ',c/k)
  else Writeln('Нет чисел, превышающих ',c)
end.

Пример
c=18.5
Количество чисел: 10
Вводите: 12.4 15 8.6 -4.12 0 17.34 21 0.12 21.15 19
Среднее арифметическое: 6.16666666666667

«У нас очень мало отказов в выдаче визы — меньше 1 процента», — говорит генеральный консул Венгрии в Казани Адам Штифтер. В ходе интернет-конференции с читателями «БИЗНЕС Online» он рассказал, когда и зачем лучше всего ездить туристам в его страну, как венгры совместно с РАЦИНом растят в Татарстане яблоки и почему считает себя фанатом русского языка. На чемпионате Европы сборная России не очень хорошо выступила, а на чемпионате мира отличную игру показала. Наверное, у всех есть хорошие и плохие периоды. Поскольку венгерской команды не было, я болел за красивый футбол. Российская сборная, безусловно, показала красивый футбол, поэтому надо гордиться и жить надеждами.

Всё просто.

Объяснение:

                                                               4

1524 (10) = 5F4 (16)

                                                                    5

а) 1110 (2) + 1011 (2) = 14 (10) + 11 (10) = 25 (10) = 11001 (2);

б) 11010 (2) + 11101 (2) = 26 (10) + 29 (10) = 55 (10) = 110111 (2);

в) 1101 (2) * 101 (2) = 13 (10) + 5 (10) = 18 (10) = 10010 (2).

                                                                  6

( x & -y )                                  ∨                        ( -x   & y )

 0     0        0                                                      0     0        0                                                      

 0      1        1                                                       0      1        1                                                      

 1       0       1                                                       1       0       1

 0      0       1                                                       0      0       1