А я то думал!Сори я пятиклассник, ну сори.<span />
317(16)
13D=1*16*16+3*16+13=317(16)<span />
In.txt и out.txt соотвественно
P.S. in.txt должен быть в Unicode
Размер массива не указан, поэтому в программе считаю его 100. Легко переделать под себя.
<h3>Код (Pascal)</h3>
var
a: array[1..100] of integer;
i, cnt: integer;
begin
for i := 1 to 100 do
a[i] := random(1001) + 1000;
for i := 1 to 100 do
if (a[i] div 10) mod 2 = 0 then cnt := cnt + 1;
writeln(cnt);
end.
--------------------------------------------------
Файл с решением прикреплён.