Program Example2;
{Программа заполняет массив Rand случайными числами в диапазоне от 0 до 50,
вводит число Х, и вычисляет, сколько раз Х входит в массив Rand}
Var Rand: array[1..20] of integer;
       I, X, NumberX : integer,
Begin
{Установка датчика случайных чисел}
	Randomize;
{Заполнение массива случайными числами и вывод их на экран}
	Writeln(‘Массив случайных чисел:’)
	For I:=1 to 10 do
	begin
	      Rand[I]:=random(50); Write(Rand[I]:4)
	End;
	Writeln;
{Ввод Х}
	Write(‘Введите Х:’)); Readln(X);
{Подсчет числа вхождений Х в массив}
	NumberX:=0;
	For I:=1 to 10 do
		If   Rand(I)=X then NumberX:=NumberX+1;
{Анализ и вывод результата}
	If  NumberX=0
	Then	writeln(‘В массиве нет числа’,X)
	Else writeln(‘Число’,X,’в массиве присутствует’,NumberX,’раза’)
End.