Заполнить двумерный массив размерностью 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.