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.
Объяснение:
