Пусть дана последовательность a(1), a(2), …, a(n) целых чисел. Найдите среднеарифметическое значение элементов, расположенных между максимальным и минимальным числом этой последовательности (в сумму включить и оба этих числа). C# Очень

1110001100(в двоичной системе)

Объяснение:

256+652=908

908:2=454(ост.0)

454:2=227(ост.0)

227:2=113(ост.1)

113:2=56(ост.1)

56:2=28(ост.0)

28:2=14(ост.0)

14:2=7(ост.0)

7:2=3(ост.1)

3:2=1(ост.1)

1110001100(в двоичной системе) =908(в десятичной)

Чтобы из десятичной системы число перевести в двоичную систему, то нам нужно будет делить число на 2,и так каждый раз, до тех пор, пока в ответе не будет 1

Далее собираем вот этот вот последний ответ 1,и все остатки(кстати, собираем мы это все снизу вверх), и получаем наше двоичное число

Удачи!

A)
program a1;
uses crt;
var m:array[1..40]of integer;
i:byte;
a,ka:integer;
begin
clrscr;
a:=0;ka:=0;
for i:=1 to 40 do
begin
 m[i]:=random(21);
 if m[i] mod 2<>0 then
 begin
 ka:=ka+1;
 a:=a+m[i];
 end;
 end;
for i:=1 to 40 do  if i=1 then write('M[',m[i],',')   else  if i=40 then writeln(m[i],']')   else  write(m[i],',');
writeln('Среднее арифметическое нечетных чисел=',a/ka);
end.
b)
program b1;
uses crt;
var m:array[1..40]of integer;
i:byte;
b:integer;
begin
clrscr;
for i:=1 to 40 do
begin
 m[i]:=random(21);
 begin
 if m[i]<=10 then b:=b+m[i];
 end;
 end;
for i:=1 to 40 do  if i=1 then write('M[',m[i],',')   else  if i=40 then writeln(m[i],']')   else  write(m[i],',');
writeln('Сумма чисел не превышающих 10=',b);
end.
в)
program v1;
uses crt;
var m:array[1..40]of integer;
i:byte;
c:integer;
begin
clrscr;
for i:=1 to 40 do
begin
 m[i]:=random(21);
 begin
if m[i] mod 3=0 then c:=c+m[i];
 end;
 end;
 for i:=1 to 40 do
 if i=1 then write('M[',m[i],',')
 else
 if i=40 then writeln(m[i],']')
 else
write(m[i],',');
writeln('Сумма чисел кратных 3 = ',c);
end.