12. Ниже приведён фрагмент программы на языке Паскаль. Что будет выведено на экран в результате её работы? ```pascal var i, imax: integer; a: array [1..5] of integer; begin a[1] := 15; a[2] := 8; a[3] := 23; a[4] := 12; a[5] := 20; imax := 1; for i := 2 to 5 do if a[i] > a[imax] then imax := i; writeln(a[imax]); end. ``` Ответ:

Решение:

Программа находит индекс максимального значения в массиве a. Давайте проследим за работой цикла:

1. Инициализация: imax = 1. Массив a: [15, 8, 23, 12, 20].
2. Цикл for i := 2 to 5 do:
• i = 2: a[2] (8) > a[imax] (a[1] = 15)? Нет. imax остается 1.
• i = 3: a[3] (23) > a[imax] (a[1] = 15)? Да. imax становится 3.
• i = 4: a[4] (12) > a[imax] (a[3] = 23)? Нет. imax остается 3.
• i = 5: a[5] (20) > a[imax] (a[3] = 23)? Нет. imax остается 3.
3. После цикла imax = 3.
4. writeln(a[imax]) выведет значение a[3].
5. a[3] = 23.

Ответ: 23