Question

URGENT PASCAL!

Se da o matrice de numere intregi. Sa se afiseze elementele comune:
tuturor liniilor matricei.

Answer 1

Program problema;

var

   mat: array[1..100, 1..100] of integer;

   x: integer;

   y: integer;

   z: integer;

   nr_lin: integer;

   nr_col: integer;

   comun: integer;

   gasit_linie: boolean;

   gasit_tot: boolean;

begin

   read(nr_lin, nr_col);

   for x := 1 to nr_lin do

       for y := 1 to nr_col do

           read(mat[x][y]);

   writeln('Elemente comune tuturor liniilor matricei:');

   for x := 1 to nr_col do

   begin

       comun := mat[1][x];

       gasit_tot := true;

       for y := 2 to nr_lin do

       begin

           gasit_linie := false;

           for z := 1 to nr_col do

           begin

               if (comun = mat[y][z]) then

                   gasit_linie := true;

           end;

           if (gasit_linie = false) then

               gasit_tot := false;

       end;

       if (gasit_tot) then

           write(comun, ' ');

   end;

end.