Составить программу вычисления среднего арифметического значение четных по значению элементов массива. Элементы нумеруются с 0 до 49 и задаются с помощью датчика случайных чисел из диапазона [0,300]

Var a: array[0 ... 49] of Integer; sr:real; sum, i, n: integer; beginwriteln ('Исходный массив') ; for i:=0 to 49 do begina[i]:=Random (300) ; write (a[i]:4) ; if a[i] mod 2 = 0 then begin sum: = sum + a[i]; n: = n + 1; end; end; sr: = sum / n; writeln; writeln ('Cреднее арифметическое значение четных ', sr) ; end.