Дан случайный массив из N чисел, лежащих в промежутке [-15;15]. Выписать из него все четные числа, подсчитать их количество. Если таких чисел нет, то вывести сообщение об этом.

//PascalABC.NET const n = 10; // Задаем размер массива var a: array [1..n] of integer; i,kol:integer; begin for i:=1 to n do begin A[i]:=(random(30)-15);  if a[i] mod 2 = 0 then begin  write(a[i],' '); kol:=kol+1; end; end; writeln; if kol <> 0 then writeln('Кол-во четных элементов: ',kol) else writeln('Четных элементов нет'); end.