Я так понял на паскале нужно написать?
Program find;uses crt;varA:array[1..40] of integer;n,i ,k:integer;BEGINRandomize ;//Это ,чтобы каждый раз новые числа генерировало//Заполняем массив рандомными числамиfor i:=1 to 40 do  A[i] := random(15);
Writeln('Введите искомый элемент');Readln(n);
k:=0;for i:=1 to 40 do Begin                   // Проверяем,совпадает ли очередной эл-нт массива с искомым                   //Если совпадает, то увеличиваем счетчик k                   if A[i] = n  then k := k+1;                  End;
Writeln ('В массиве ', k , ' раз(а) встречается заданный элемент' );END.