Заполнить массив случайным образом и вывести на экран сумму нечетных элементов.В паскале)

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

program SumOfOddElements;

var
arr: array[1..10] of integer;
i, sum: integer;

begin
Randomize;

sum := 0;

for i := 1 to 10 do
begin
arr[i] := Random(50) + 1; // заполняем массив случайными числами от 1 до 50
Write(arr[i], ' ');

end;

Writeln;
Writeln('Сумма нечетных элементов массива: ', sum);

end.