program Variant_1;
{$APPTYPE CONSOLE}
uses
SysUtils;
const
NMax = 10;
min = -50;
max = 50;
function CharToOem(lpszSrc: PChar; lpszDst: PChar): BOOLean; stdcall; external 'user32.dll' name 'CharToOemA';
function rus(s: string): string;
begin
SetLength(result, length(s));
CharToOem(PChar(S), PChar(result));
end;
function readint: integer;
var tmp: string;
err: integer;
begin
repeat
readln(tmp);
val(tmp, result, err);
until err = 0;
end;
var
arr: array[1..NMax] of integer;
i, n,m: integer;
f: boolean = false;
begin
randomize;
Write(rus('Введите размер массива'),' 0<N<=',NMax,': ');
repeat
n:=readint;
until (0<n)and(n<=10);
for i := 1 to n do begin
arr[i] := random(max - min) + min;
writeln('arr[', i, ']=', arr[i]);
end;
Write(rus('Введите значение искомого элемента: ')); m := readint;
for i := 1 to n do if arr[i] = m then begin
writeln('arr[', i, ']=', arr[i]);
f := true;
end;
if not f then writeln(rus('Элемент не найден'));
readln;
end.