Răspuns :
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!
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!



Vă mulțumim că ați ales să vizitați site-ul nostru dedicat Informatică. Sperăm că informațiile prezentate v-au fost utile. Dacă aveți alte întrebări sau aveți nevoie de asistență suplimentară, nu ezitați să ne contactați. Vă așteptăm cu drag să reveniți și nu uitați să ne salvați în lista de favorite!