Question

1.) Se dă un tablou liniar cu n componente numere reale.Înlocuiește valorile componentelor cu media aritmetică a celorlalte componente. (Pascal)
2.) Se dau două tablouri liniare cu 5 componente numere naturale din intervalul [1;36]. În primul tablou se conțin numerele cu noroc extrase la tragerea unei loterii,,5 din 36”, iar în al doilea tablou se conțin numere marcate de un jucător în bilet.Determinați cîte numere a ghicit jucătorul (Pascal)
3.) Se consideră numărul întreg X și tabloul A[1..n] de numere întregi n≤100. Să se scrie un program care determină locurile pe care sunt elemente egale cu X. Se presupune că în tablou există cel puțin un element egal cu X. (Pascal)

Va rog mult urgent !

Answer 1

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!