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ă informațiile disponibile v-au fost utile. Dacă aveți întrebări suplimentare sau aveți nevoie de sprijin, nu ezitați să ne contactați. Vă așteptăm cu drag și data viitoare! Nu uitați să adăugați site-ul nostru la favorite pentru acces rapid.