После выполнения фрагмента программы : m:=0; for i:=1 to 10 do begin if i mod 3=0 then a[i]:=2*(i-1)...

Переменная m принимает значение 12.

Рассмотрим каждую итерацию цикла:

1. i=1, a[1]=-1, m=-1
2. i=2, a[2]=-1, m=-2
3. i=3, a[3]=2*(3-1)=4, m=4-2=2
4. i=4, a[4]=-1, m=2-1=1
5. i=5, a[5]=-1, m=1-1=0
6. i=6, a[6]=2*(6-1)=10, m=10
7. i=7, a[7]=-1, m=10-1=9
8. i=8, a[8]=-1, m=9-1=8
9. i=9, a[9]=2*(9-1)=16, m=16+8=24
10. i=10, a[10]=-1, m=24-1=23

Таким образом, после выполнения фрагмента программы переменная m примет значение 23.

Чтобы определить значение переменной m после выполнения данного фрагмента программы, необходимо пройтись по каждому шагу цикла и вычислить значения массивов и переменной m.

Давайте разберём фрагмент программы пошагово:

1. Инициализация: m := 0; — переменной m присваивается значение 0.

2. Цикл: for i := 1 to 10 do — цикл будет выполняться для i от 1 до 10.

Внутри цикла:

• Условие: if i mod 3 = 0 then a[i] := 2 * (i - 1) else a[i] := -1;

  • Если i делится на 3 (т.е. остаток от деления на 3 равен 0), то a[i] присваивается значение 2 * (i - 1).
  • В противном случае a[i] присваивается значение -1.

• Суммирование: m := a[i] + m; — текущее значение a[i] добавляется к m.

Давайте вычислим значение m для каждого значения i от 1 до 10:

• i = 1: i mod 3 = 1, поэтому a[1] = -1, m = -1.
• i = 2: i mod 3 = 2, поэтому a[2] = -1, m = -2.
• i = 3: i mod 3 = 0, поэтому a[3] = 2 * (3 - 1) = 4, m = 2.
• i = 4: i mod 3 = 1, поэтому a[4] = -1, m = 1.
• i = 5: i mod 3 = 2, поэтому a[5] = -1, m = 0.
• i = 6: i mod 3 = 0, поэтому a[6] = 2 * (6 - 1) = 10, m = 10.
• i = 7: i mod 3 = 1, поэтому a[7] = -1, m = 9.
• i = 8: i mod 3 = 2, поэтому a[8] = -1, m = 8.
• i = 9: i mod 3 = 0, поэтому a[9] = 2 * (9 - 1) = 16, m = 24.
• i = 10: i mod 3 = 1, поэтому a[10] = -1, m = 23.

Таким образом, после выполнения всего фрагмента программы, переменная m будет иметь значение 23.

5