2. Одределете значение переменной А после выполнения фрагмента Алгоритма
А:=3
В:=3
Нц
В:=в/2
А:=а*в
Кц при в=2
​

1.
// PascalABC.NET 3.3

begin
  var a:=ArrRandom(20,10,90); a.Println;
  var max_1:=a.Max;
  writeln('max_1 = ',max_1,' i_Max_1 = ',a.IndexMax+1);
  var max_2:=a.Where(x->x<>max_1).Max;
  writeln('max_2 = ',max_2,' i_Max_2 = ',a.IndexOf(max_2)+1);
end.

Пример:
58 10 76 12 22 38 63 30 16 81 84 58 65 20 29 31 18 83 12 38
max_1 = 84 i_Max_1 = 11
max_2 = 83 i_Max_2 = 18

2.
// PascalABC.NET 3.3

begin
  var a:=ArrRandom(20,10,90); a.Println;
  var sr:=a.Average;
  writeln('Среднее = ',sr);
  var m:=a.MinBy(x->abs(x-sr));
  writeln('Искомый номер = ',a.IndexOf(m)+1);
end.

Пример:
74 80 55 12 74 49 86 32 34 68 29 82 14 35 15 81 18 63 38 75
Среднее = 50.7
Искомый номер = 6

7.
v = 1     n = 24 
v = n – v*4 
v = 24 – 1*4 = 24 - 4 = 20
v = 20      n = 24
n = v*2 – n 
n = 20*2 – 24 = 40 - 24 = 16 
v = 20      n = 16

8.
а = 6     b = 2 
b = a/2*b 
b = 6/2*2 = 3 * 2 = 6
a = 6      b = 6
a = 2*а + 3*b 
a = 2*6 + 3*6 = 12 + 18 = 30
a = 30      b = 6

9.
а = 10     b = 110 
b = 110 + b/a 
b = 110 + 110/10= 110 + 11 = 121
a = 10      b = 121
a = b/11*a 
a = 121/11*10 = 11 * 10 = 110
a = 110      b = 121

10.
a = 6     b = 2 
b = a/2*b 
b = 6/2*2 = 3 *2 = 6 
a = 6      b = 6
a = 2*a + 3*b 
a = 2*6 + 3*6 = 12 + 18 = 30
a = 30      b = 6

11.
a = 2     b = 6 
b = 12 + a*b 
b = 12 + 2*6 = 12 +12 = 24 
a = 2      b = 24
a = b/4*a 
a = 24/4*2 = 6 * 2 = 12
a = 12      b = 24

12.
а = 5     b = 4 
а = 2*а + 3*b 
а = 2*5 + 3*4 = 10 + 12 = 22 
a = 22      b = 4
b = a/2*b 
b = 22/2*4 = 11 * 4 = 44
a = 22      b = 44