Заполнить двумерный массив размерностью nxm случайными числами в интервале [-10..10] и найти номер первого элемента, равного х. использовать простой поиск.
Const n=10; m=10; var x,i,j:integer; mass:array[1..n,1..m] of integer; begin write('X='); read(x); for i:=1 to n do for j:=1 to m do begin mass[i,j]:=random(20)-10; if mass[i,j]=x then begin writeln('mass[',i,',',j,']=',mass[i,j]); writeln('mass[',i,',',j,']=x'); exit; end; end; end.
n=10;
m=10;
var x,i,j:integer;
mass:array[1..n,1..m] of integer;
begin
write('X=');
read(x);
for i:=1 to n do
for j:=1 to m do
begin
mass[i,j]:=random(20)-10;
if mass[i,j]=x then begin
writeln('mass[',i,',',j,']=',mass[i,j]);
writeln('mass[',i,',',j,']=x');
exit;
end;
end;
end.