Здравствуйте, Степанов Александ Сергеевич!
Задача в приложении.

Для того чтобы мы знали есть ли в массиве введенное число, объявим логическую переменную <b>InArray</b>:

<b>var</b>
 InArray: <b>boolean</b>

В начале программы присвоим переменной false, то есть в массиве нет такого числа, потом массив заполняется случайными числами с помощью <b>random</b>.
Перед использованием этой функции, надо включить генератор случайных чисел с помощью <b>randomize</b>. <b>Random(n)</b> возвращает случайное число из диапазона от 0 до n-1.
Во время заполнения массива сразу же проверяем, равен ли только что заполненный элемент введенному числу. Если да, то приравниваем <b>InArray</b> к <b>true</b>.
После заполнения мы проверяем переменную <b>InArray</b>, если она равна <b>true</b>, то выводим "Есть", иначе "Нет".
Удачи!!!<p><fieldset style=‘background-color:#EFEFEF; width:80%; border:#777777 1px solid; padding:10px;‘ class=fieldset><font color=#777777><i>Отредактировано по просьбе эксперта.</i>
-----
</font><font color=#777777 size=1><b>• Отредактировал: <a href=http://rusfaq.ru/info/user/18359 target=_blank>Николай Владимирович / Н.В.</a></b> (Профессор)
<b>• Дата редактирования:</b> 29.05.2008, 22:34 (MCK)</font></fieldset>

Приложение:
var {Массив} a: array [1..3, 1..4] of integer; {Переменная по которой определяем есть ли число в массиве} InArray: boolean; {b-введенное число, i,j-для For} b, i, j: integer; begin {Получаем число} Write(‘Введите число: ‘); ReadLn(b); {Вклюаем генератор случайных чисел} randomize; {Сначало числа в массиве нет} Inarray:=false; {Заполняем массив сл. числами из диапозона [0;11]} WriteLn(‘Массив: ‘); for i:=1 to 3 do begin for j:=1 to 4 do begin a[i, j]:=random(12); Write(a[i, j]:4); {Если число равно введенному, то присваиваем InArray true} if a[i, j] = b then InArray:=true; end; writeln; end; {Если есть, то выводи "Есть", иначе "Нет"} if InArray then write(‘Есть‘) else Write(‘Нет‘); readln; end.