const n = 5;
a: array [1..n] of integer = (5, –8, 15, 15, –8);
var i, b, c: integer;
begin
b := a[1];
c := 1;
for i := 2 to n do if a[i] <= b then
begin
b := a[i];
c := i
end;
writeln(c)
end.
1. Присваиваем первый элемент массива a в переменную b и присваиваем 1 в переменную c. После этого b = 5, c = 1.
2. Запуск цикла на прохождение массива от второго элемента (i = 2) до последнего (n = 5).
3. Внутри цикла для каждой итерации сравниваем текущий элемент массива a[i] с переменной b. Если a[i] ≤ b, то записываем в b значение a[i] и в переменную c текущее значение i (номер итерации).
4. После закрытия цикла выполняется вывод значения переменной c.
Ответ: программа выведет 5, так как последний минимальный элемент находится на позиции 5 в массиве.