Răspuns :
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...
Vă mulțumim că ați ales să vizitați platforma noastră dedicată Informatică. Sperăm că resursele disponibile v-au fost de ajutor. Pentru întrebări sau asistență suplimentară, nu ezitați să ne contactați. Ne bucurăm să vă revedem în curând și vă invităm să ne salvați în lista de site-uri preferate!