Если нужны объяснения то пиши в личку)
Program zada4a;
var
i,x,n: integer;
a: array [1..100] of integer;
begin
n:=0;
write('Введите x - ');
readln(x);
for i:=1 to 5 do - если попросят чтобы выводилось больше 5 чисел, то поменяйте цифру 5 на нужную.
begin
a[i]:=random(21); -это строчка озночает, что задаются числа интервалом от 0 до 20.
write(a[i]:5);
end;
writeln;
for i:=1 to 5 do
begin
if x=a[i] then
begin
writeln('Элемент в массиве равный ',x,' находится под номером - ',i);
n:=n+1;
end;
end;
if n=0 then
write('Элемент c таким значением отсутствоет');
end.
