Найти сумму элементов массива с четными индексами, значение которых превышает К.(паскаль)

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

Вот пример кода на Pascal, который находит сумму элементов массива с четными индексами, значение которых превышает заданное число K:

program SumOfEvenIndicesGreaterThanK
cons
n = 5; // размер массив
K = 10; // заданное число
va
arr: array[1..n] of integer
i, sum: integer
begi
sum := 0
// Заполнение массива случайными числам
randomize
for i := 1 to n d
begi
arr[i] := random(20); // генерация чисел от 0 до 1
writeln('arr[', i, '] = ', arr[i])
end
// Нахождение суммы элементов массива с четными индексами и значением больше
for i := 2 to n step 2 d
begi
if (arr[i] > K) the
begi
sum := sum + arr[i]
end
end
writeln('Сумма элементов массива с четными индексами, значение которых превышает ', K, ' равна ', sum)
end.

Программа сначала генерирует массив случайных чисел, затем вычисляет сумму элементов массива с четными индексами, значение которых больше заданного числа K.