Ответ:

pascal

Объяснение:

const

 n = 10;

var

 k, i: integer;

 a: array[1..n] of integer;

begin

 for i:= 1 to n do

 begin

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

   Write(a[i], ' ');

   if (a[i] mod 2 = 0) and ((a[i] div 100) mod 2 = 0) then inc(k);

 end;

 WriteLn;

 WriteLn('Количество искомых элементов равно ', k);

end.