Răspuns:
program Sa;
var a:array[1..30,1..30]of integer;
n,m,i,j,gasit:integer;
minline,maxcol:array[1..30]of integer;
begin
write('nr.de linii, n=');read(n);
write('nr.de coloane, m=');read(m);
writeln('introdu elementele tabloului bidimensional');
writeln(' ',n,' linii cu cate ',m,' numere, despartite prin spatiu');
read(a[1,1]); minline[1]:=a[1,1]; maxcol[1]:=a[1,1];
for j:=2 to m do
begin
read(a[1,j]);maxcol[j]:=a[1,j];
if a[1,j]<minline[1] then minline[1]:=a[1,j];
end;
for i:=2 to n do
begin
read(a[i,1]);
minline[i]:=a[i,1];
if a[i,1]>maxcol[1] then maxcol[1]:=a[i,1];
for j:=2 to m do
begin
read(a[i,j]);
if a[i,j]<minline[i] then minline[i]:=a[i,j];
if a[i,j]>maxcol[j] then maxcol[j]:=a[i,j];
end;
end;
writeln('Valorile punctelor SA si pozitia lor:');
gasit:=0;
for i:=1 to n do
for j:=1 to m do
if (a[i,j]=minline[i])and(a[i,j]=maxcol[j]) then
begin writeln(a[i,j],' ',i,' ',j); gasit:=1 end;
if gasit=0 then writeln('Nu exista...');
end.
Explicație:
