Hello, o as postez atat poza cu problema, pentru a intelege mai bine, cat si textul:
Problema 1:
Program YouAreTheBest;VAR n,i:int64; s:real; a:array[1..101] of real;BeginWriteln('Introduceti n: ');Readln(n);for i:=1 to n doBeginRead(a[i]);end;
for i:=1 to n doBegins:=s + a[i];end;
for i:=1 to n doBegina[i]:=(s - a[i])/(n - 1);end;
Writeln('Tabloul modificat: ');for i:=1 to n - 1 doBeginWrite(a[i],' ');end;Writeln(a[n]);Readln;END.
Aici am folosit putina matematica - media aritmetica e suma celorlalte elemente/numarul de elemente, numarul de elemente e n - 1, deoarece nu consider elementul ce-l inlocuim, iar suma celorlalte elemente e suma totala - suma elementului curent, ceea ce face for-ul din problema.
Problema 2:
Program ThankYouuuu;VAR k,i,j:integer; a,b:array[1..6] of integer; este:boolean;BeginWriteln('Introduceti numerele castigatoare: ');for i:=1 to 5 doBeginRead(a[i]);end;Writeln('Introduceti numerele extrase: ');for i:=1 to 5 doBeginRead(b[i]);end;for i:=1 to 5 doBegin//Verificam daca elementul b[i] este in tabloul a,//daca este, k = k + 1, unde k reprezinta numere comuneeste:=false;
for j:=1 to 5 doBeginif (b[j] = a[i]) then este:=true;end;
if (este) then k:=k + 1;end;
Writeln('Numere comune: ',k);Readln;END.
Problema 3:
Program YouAreAwesome;VAR n,i,x:integer; a:array[1..101] of integer;BeginWriteln('Introduceti n: ');Readln(n);Writeln('Introduceti x: ');Readln(x);Writeln('Introduceti tabloul a: ');for i:=1 to n doBeginRead(a[i]);end;Writeln('X se afla pe locurile: ');for i:=1 to n doBegin//Trecem prin fiecare element al tabloului si verificam daca este egal cu x,//daca e, atunci afisam indicele:if (a[i] = x) then Writeln(i);end;Readln;END.
Daca ai intrebari, scrie in comentarii!
