Дан целочисленный массив k состоящий их 20 элементов. массив формируется случайными числами из промежутка [-30; 70].
определите количество отрицательных элементов с четными номерами.
решить в паскале 9 класс​

const N=20;

var  

 K: array [1..N] of integer;

 i,count:integer;

begin

 count:=0;

 for i:=1 to N do

   begin

     k[i]:=random(101)-30;

     write(k[i]:4);

     if (i mod 2 = 0) and (k[i]<0) then inc(count);

   end;

 writeln;

 writeln('Cou