Дан одномерный массив размером 10 элементов на интервале [50; -50] определить какая сумма больше четных или нечетных элементов массива (9 класс Паскаль)

var

arr : array[0 ... 10] of integer; / / объявляем массив.

i, sum, sum1 : integer; / / объявляем переменную целочисленного типа.

begin

for i : = 1 to 10 do / / начало цикла.

begin

arr[i] : = random (50,-50); / / заполняем элемент массива случайным числом от - 50 до 50.

if (arr[i] mod 2 = 0) then / / если элемент четный.

sum : = sum + arr[i] / /считаем сумму четных элементов.

else / / если элемент нечетный.

sum1 : = sum1 + arr[i]; / /считаем сумму нечетных элементов.

end;

if (sum > sum1) then writeln ('Cумма четных чисел больше суммы нечетных');

if (sum < sum1) then writeln ('Cумма нечетных чисел больше суммы четных');

if (sum = sum1) then writeln ('Cумма четных и нечетных чисел равны');

end.