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

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

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

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

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