Вычислите сумму элементов массива из 10 целых чисел,стоящих на нечетных местах(в паскаль)

Предыдущий
вопрос Следующий
вопрос

Пример кода на Pascal для вычисления суммы элементов массива из 10 целых чисел, стоящих на нечетных местах:

program SumOddElements;
var
arr: array[1..10] of Integer;
sum, i: Integer;
begin
sum := 0;
// Заполнение массива целыми числами
for i := 1 to 10 do
begin
Write('Введите элемент массива arr[', i, '] = ');
Readln(arr[i]);
end;
// Вычисление суммы элементов массива, стоящих на нечетных местах
for i := 1 to 10 do
begin
if (i mod 2 <> 0) then // Проверка на нечетное место
begin
sum := sum + arr[i];
end;
end;
// Вывод суммы на экран
Writeln('Сумма элементов массива, стоящих на нечетных местах: ', sum);
end.

После запуска этой программы и ввода целых чисел в массив, программа выведет сумму элементов массива, стоящих на нечетных местах.