program n_5;vari, n, x: integer;a: array [1..10] of integer;beginrandomize;for i :=

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.