Для этого можно использовать следующий код на Pascal:

program CountDivisibleByFiveNotByFour;
const
N = 10;
var
arr: array[1..N] of Integer;
i, count: Integer;
begin
count := 0;
// Заполняем массив случайными значениями
Randomize;
for i := 1 to N do
begin
arr[i] := Random(100) + 1;
Write(arr[i], ' ');
end;
// Подсчитываем количество элементов, делящихся на 5, но не делящихся на 4
for i := 1 to N do
begin
if (arr[i] mod 5 = 0) and (arr[i] mod 4 <> 0) then
count := count + 1;
end;
Writeln;
Write('Количество элементов, делящихся на 5, но не делящихся на 4: ', count);
end.

Этот код создает массив из 10 элементов, заполняет его случайными значениями и затем подсчитывает количество элементов, которые делятся на 5, но не делятся на 4.