La magazinul din colț au fost aduse n cutii, numerotate de la 1 la n, fiecare conținând un anumit număr de bomboane. Administratorul magazinului hotărăște, pentru bunul mers al afacerilor, că bomboanele trebuie rearanjate în cutii, astfel încât fiecare cutie să conțină același număr de bomboane. Pentru aceasta, administratorul magazinului realizează în mod repetat următoarea operație: mută un număr oarecare de bomboane din cutia cu număr maxim de bomboane în cea cu număr minim de bomboane.
Determinați un șir minim de operații prin care toate cutiile conțin același număr de bomboane.
program pr;
Var b:real;
a:array[1..100];
i,n:integer;
Begin
s:=0;
Write('numarul cutiilor aduse,N='); readln(n);
For i:=1 to n do
Begin
readln(a[I]);
S:=s+a[i];
End;
b:=s/n;
For i:=1 to n do
a[i]:=b;
End.
Vă mulțumim că ați vizitat platforma noastră dedicată Informatică. Sperăm că informațiile oferite v-au fost utile. Dacă aveți întrebări sau aveți nevoie de asistență suplimentară, nu ezitați să ne contactați. Așteptăm cu nerăbdare să vă revedem și nu uitați să ne salvați în lista de favorite!
