константа целое ШиринаМассива = 100;
константа целое ВысотаМассива = 100;
константа целое F = 10;
массив целых чисел Мас[ШиринаМассива, ВысотаМассива];
//Тут должна быть инициализация массива случайными числами
целое Счетчик = 0;
Цикл column от 0 до Ширины массива
    Цикл row от 0 до Высоты массива
        Условие (если Мас[column,row] больше F) тогда Счетчик = Счетчик + 1;
    Конец цикла row
Конец цикла column