Заполнить массив случайными числами в интервале [1000; 2000) и подсчитать число элементов у которых вторая с конца цифра четная.

var a:array [1..100] of integer;

i,n:integer;

s:string;

Begin

  randomize;

  for i :=1 to 100 do

  begin

    a[i]:= random(1000)+1000;

    a[i]:=a[i] mod 100;

    a[i]:=a[i] div 10;

    if a[i] mod 2 = 0 then n=n+1;

  end;

  writeln(n);

End.