Создать массив из 25 целых случайных чисел в интервале [-50,50]. Вывести на количество четных и сумму нечетных элементов массива

Var

i, chet, summa: integer;

mass:array[0 ... 24] of integer;

Begin

for i:=0 to 24 do

Begin

mass[i]: = random (-50,50) ;

if (mass[i] mod 2 = 0) then

Begin

chet+=1;

writeln ('Элемент массива под номером ' + (i+1) + ' равен ' + mass[i] + ' и чётен.') ;

End

else

Begin

writeln ('Элемент массива под номером ' + (i+1) + ' равен ' + mass[i] + ' и нечётен.') ;

summa+=mass[i];

End;

End;

Writeln ('Количество чётных членов массива: ', chet) ;

Write ('Сумма нечётных членов массива: ', summa) ;

End.