Var n,i,S,x:integer;
a:array[1..50] of integer;
begin
write('Введи размер массива: ');
readln(n);
write('Введи число x: ');
readln(x);
for i:=1 to n do begin
a[i]:=Random(n-1)+1;
write(a[i],' ');
end;
S:=0;
for i:=1 to n do
if a[i]=x then S:=S+1;
if S=0 then writeln('Искомых элементов нет')
else writeln('Элементов ',S);
end.
Пример:
Введи размер массива: 10
Введи число x: 5
3 4 5 1 9 1 3 5 3 8
Элементов 2