Тема: Одномерные массивы. В паскале в массиве даны 10 целых чисел. Нужно найти сумму четных чисел.

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

Пример кода на языке Pascal:

program sum_of_even_numbers;
var
arr: array[1..10] of integer;
i, sum: integer;
begin
sum := 0;
writeln('Введите 10 целых чисел:');
for i := 1 to 10 do
begin
readln(arr[i]);
if arr[i] mod 2 = 0 then
begin
sum := sum + arr[i];
end;
end;
writeln('Сумма четных чисел равна: ', sum);
end.

Данный код сначала объявляет массив arr из 10 целых чисел и переменные i и sum. Затем происходит ввод 10 целых чисел в массив. В цикле проверяется каждый элемент массива на четность (деление на 2 без остатка) и, если число четное, то оно добавляется к общей сумме sum. В конце программа выводит результат - сумму четных чисел массива.