program bing;
uses CRT;
type
matrix = array [1..100, 1..100] of integer;
var
A: matrix;
m, n, i, j, f: integer;
procedure vvod(var MM : matrix);
begin
for i:= 1 to m do
for j:= 1 to n do
begin
write('A', i, ', ', j, ']- ');
readln(MM[i, j]);
end;
end;
procedure obrabotka(var MM : matrix);
begin
for i:= 1 to m do
for j:= 1 to n do
if MM[i, j] <> f then
MM[i, j]:= 0;
end;
procedure outM(MM : matrix);
begin
for i:= 1 to m do
begin
for j:= 1 to n do
write(MM[i, j]:5);
writeln;
end;
end;
begin
clrscr;
write('m- ');
readln(m);
write('n- ');
readln(n);
write('f- ');
readln(f);
obrabotka(A);
outM(A);
readkey;
end.