Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

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