var s, i: integer; const a: array[1..10] of integer = (3, 9, -5, 13, 6, -4, 0, 8, 2, -1); begin s := 0; for i := 1 to 10 do s := s + a[i]; writeln; end. и вышло 31 это правильно

Коротко: сумма элементов массива равна 31, но программа выведет не 31, а пустую строку. Чтобы увидеть значение 31, нужно выводить переменную s.

Пошагово рассчитаем сумму:

• i = 1: s = 0 + 3 = 3
• i = 2: s = 3 + 9 = 12
• i = 3: s = 12 + (-5) = 7
• i = 4: s = 7 + 13 = 20
• i = 5: s = 20 + 6 = 26
• i = 6: s = 26 + (-4) = 22
• i = 7: s = 22 + 0 = 22
• i = 8: s = 22 + 8 = 30
• i = 9: s = 30 + 2 = 32
• i = 10: s = 32 + (-1) = 31

Итог: s = 31.

Но оператор writeln; без аргументов выводит только перевод строки, т.е. программа ничего не выведет кроме перехода на новую строку. Поэтому факт, что сумма 31, не появится на экране.

Как правильно вывести значение

• Замени вывод на writeln(s); чтобы вывести текущие значение s после цикла.

Правильный вариант кода: begin s := 0; for i := 1 to 10 do s := s + a[i]; writeln(s); end.

Либо можно вывести внутри цикла, если нужно видеть промежуточные значения, но обычно выводят после цикла.

Если вам нужно, могу показать и альтернативные варианты вывода или объяснить любую часть детальнее.