Водномерном массиве размером n определить среднее значение элементов. найти индекс элемента массива наиболее близкого к среднему значениюпаскаль)

Const
K = 13;
Var
A:array[1..K] of integer;
i,n:integer;
Sr,d:real;
Begin
For i:= 1 to K do
    Begin
    A[i]:=random(21)-10;
    Write(A[i],' ');
    Sr:=Sr+A[i];
    End;
WriteLn;
Sr:=Sr/K;
n:=1;
d:=abs(Sr-A[n]);
For i:= 2 to K do
    Begin
    if abs(A[i]-Sr)<d then
       Begin
       n:=i;
       d:=abs(Sr-A[n]);
       End;
    End;
WriteLn('Sr = ',Sr);
WriteLn('Номер ближайшего к среднему арифметическому: ',n);
End.

//PascalABC.NET 3.2

begin
  var a := ReadArrInteger('Введите элементы массива:', ReadInteger('Размер массива:'));
  var v := a.Average; Writeln('Среднее значение: ', v);
  Writeln('Индекс элемента массива, наиболее близкого к среднему значению: ', a.Select(x -> abs(x - v)).ToArray.IndexMin)
end.

1) 89₁₀ = 1011001₂

2) 600₁₀ = 100101100₂

3) 2010₁₀ = 11111011010₂

1) 513₁₀ = 1001₈

2) 600₁₀ = 1130₈

3) 2010₁₀ = 3732₈

Объяснение:

1)

89 / 2 = 44 + остаток 1

44 / 2 = 22 + остаток 0

22 / 2 = 11 + остаток 0

11 / 2 = 5 + остаток 1

5 / 2 = 2 + остаток 1

2 / 2 = 1 + остаток 0

1 / 2 = 0 + остаток 1

записываем остатки снизу вверх

89₁₀ = 1011001₂

2)

600 / 2 = 300 + остаток 0

300 / 2 = 150 + остаток 0

150 / 2 = 75 + остаток 0

75 / 2 = 37 + остаток 1

37 / 2 = 18 + остаток 1

18 / 2 = 9 + остаток 0

9 / 2 = 4 + остаток 1

4 / 2 = 2 + остаток 0

2 / 2 = 1 + остаток 0

1 / 2 = 0 + остаток 1

записываем остатки снизу вверх

600₁₀ = 100101100₂

3)

2010 / 2 = 1005 + остаток 0

1005 / 2 = 502 + остаток 1

502 / 2 = 251 + остаток 0

251 / 2 = 125 + остаток 1

125 / 2 = 62 + остаток 1

62 / 2 = 31 + остаток 0

31 / 2 = 15 + остаток 1

15 / 2 = 7 + остаток 1

7 / 2 = 3 + остаток 1

3 / 2 = 1 + остаток 1

1 / 2 = 0 + остаток 1

записываем остатки снизу вверх

2010₁₀ = 11111011010₂

1)

513 / 8 = 64 + остаток 1

64 / 8 = 8 + остаток 0

8 / 8 = 1 + остаток 0

1 / 8 = 0 + остаток 1

записываем остатки снизу вверх

513₁₀ = 1001₈

2)

600 / 8 = 75 + остаток 0

75 / 8 = 9 + остаток 3

9 / 8 = 1 + остаток 1

1 / 8 = 0 + остаток 1

записываем остатки снизу вверх

600₁₀ = 1130₈

3)

2010 / 8 = 251 + остаток 2

251 / 8 = 31 + остаток 3

31 / 8 = 3 + остаток 7

3 / 8 = 0 + остаток 3

записываем остатки снизу вверх

2010₁₀ = 3732₈

1) Как набрать из реки 7 литров воды если имеются сосуды емкостью 3 и 8 литров?
А - сосуд 8 литров
В - сосуд 3 литра
начало
1) набрать в А (А=8)
2) перелить из А в В (А=5, В=3)
3) вылить из В  (А=5, В=0)
4) перелить из А в В  (А=2, В=3)
5) вылить из В (А=2, В=0)
6) перелить из А в В (А=0, В=2)
7) набрать в А (А=8)
8) перелить из А в В (А=7, В=3)
конец

2) Три свидетеля дали показания, что преступники скрылись с места преступления: a) на черном "Бьюике", b) на синем "Форде", c) не на черном "Крайслере". Каждый из них в чем-то одном ошибался. На какой машине преступники скрылись?

рассуждение:
Если каждый свидетель хотя бы в одном прав, то это точно не Крайслер, иначе один из первых двух свидетелей ошибся оба раза. Раз это не Крайслер, значит второе утверждение третьего свидетеля "не черный" - истина. => первый свидетель ошибся в цвете, но прав на счет Бьюика. => Второй свидетель ошибся на счет Форда, но прав на счет цвета - синий.
ответ: Синий "Бьюик".

алгебраический:
С - Синий
Ч - Черный
Б - Бьюик
Ф - Форд
К - Крайслер
Ложными будут высказывания::
ЧиБ, СиФ, СиК, ЧиС, ФиБ, ФиК, КиБ.
По условию следующее выражение будет истинным:
(Ч+Б)*(С+Ф)*(неЧ+К)=
=(Ч*С+Ч*Ф+Б*С+Б*Ф)*(неЧ+К)=
=(Ч*Ф+С*Б)*(неЧ+К)=
=Ч*Ф*неЧ+Ч*Ф*К+С*Б*неЧ+С*Б*К=
=СБ
ответ: Синий "Бьюик"