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 pentru vizita pe site-ul nostru dedicat Informatică. Ne dorim ca informațiile furnizate să vă fi fost utile. Dacă aveți întrebări sau aveți nevoie de suport suplimentar, nu ezitați să ne contactați. Revenirea dumneavoastră ne bucură, iar pentru acces rapid, adăugați-ne la favorite!
