Question

Se considera tabloul A[1..n, 1..m] de numere intregi unde n,m<100.
sa scrie un program care determina linia cu cele mai multe elemente nule
Daca nu exista o astfel de linie sa se afiseze mesajul corespunzator -(ar fi de dorit si asta dar daca nu macar de sus ... 30 min max ...

Answer 1

Răspuns:

program nule;

type matrice = array[1..100, 1..100] of integer;

var n,m,i,j,nr0,linie,max0:integer; a:matrice;

begin

 read(n, m);

 max0:=0;

 for i:=1 to n do

   begin

     nr0:=0;

     for j:=1 to m do  

       begin

         read(a[i,j]);

         if a[i,j]=0 then nr0:=nr0+1;

       end;

     if nr0>max0 then begin max0:=nr0; linie:=i; end;

   end;

 if (max0=0) then writeln('nu exista linie cu nule..')

 else writeln(linie);

end.

Explicație: