Question

Scrie un program pascal dupa conditia :
este dat un tablou matrice 10X10 de calculat diferența dintre cea mai mare medie aritmetică din toate liniile și media aritmetică cea mai mică din toate coloanele.Urgent!!!

Answer 1

Răspuns:

 writeln('introdu elementele matricei');

 writeln(n,' linii, ',n,' coloane');

 for i:=1 to n do

   begin

     for j:=1 to n do

       begin

         read(num);

         mlinii[i]:=mlinii[i]+num;

         mcol[j]:=mcol[j]+num;

       end;

   end;

   

  mlinii[1]:=mlinii[1]/n;

  medmax:=mlinii[1];

  mcol[1]:=mcol[1]/n;

  medmin:=mcol[1];

   

  for i:=2 to n do

    begin

      mlinii[i]:=mlinii[i]/n;

      if medmax<mlinii[i] then medmax:=mlinii[i];

      mcol[i]:=mcol[i]/n;

      if medmin>mcol[i] then medmin:=mcol[i];

    end;

   

  writeln('Diferenta mediilor: ',medmax-medmin);

end.

   

Explicație:

nu am folosit tablou bidimensiunal, ci doua unidimensionale in care mai intai aflam sumele pe linii si sumele pe coloane, apoi sumele le trecem in medii actualizand de fiecare data media maxima pe linii si media minima pe coloane.

sper ca am fost explicit, dand variabilelor si nume graitoare...

Succese la studiere...