Question

Se fie dat tabloul bidimensional a[1..n,1..m] cu elemente numere intregi. Sa se compusa un program care va determina valorile tuturor punctelor sa si pozitia lor. a[i,j] este considerat punct sa daca este minim pe linia i si maxim pe coloanaj.

Answer 1

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: