Напишите программу в Паскале, которая заполняет массив из N = 10 элементов случайными числами в диапазоне[0, 20], выводит его на экран, а затем находит индекспервого элемента, равного введённому числу X.Программа должна вывести ответ «не найден», еслив массиве таких элементов нет.Пример:Массив: 5 16 2 13 3 14 18 13 16 9Что ищем: 13A[4] = 13

var a: array [1..10] of integer;

x,i: integer;

k: boolean;

begin

 k:=False;

 randomize;

 for i:=1 to 10 do

   a[i]:=random(21);

 readln(x);

 for i:=1 to 10 do

   if a[i]=x then

   begin

     x:=i;

     k:=True;

     break;

   end;

 if k then

   writeln('a[',x,']=',a[x])

 else

   writeln('не найдено')

end.

Объяснение: