program n_5;
var
i, n, x: integer;
a: array [1..10] of integer;
begin
randomize;
for i := 1 to 10 do
begin
a[i] := random(100);
writeln ('a[', i,']=', a[i])
end;
writeln ('x=');
readln (x) ;
n := 0;
for i := 1 to 10 do
if a[i] = x then n := i;
if n = 0
then writeln ('Элемента со значением, равным заданному, в массиве нет')
else writeln ('Индекс элемента, равного заданному, ', n)
end.