👤
a fost răspuns

Salut, am nevoie urgenta sa imi rezolvati exercitiul de mai jos, deoarece eu nu pot, va rog mult. Dau 20 puncte si coroana.

Salut Am Nevoie Urgenta Sa Imi Rezolvati Exercitiul De Mai Jos Deoarece Eu Nu Pot Va Rog Mult Dau 20 Puncte Si Coroana class=

Răspuns :

Răspuns:

program numarX;

const nmax=100;

type tablou=array[1..nmax]of integer;

var t:tablou; n,i,x,c:integer;

procedure contor(n,x:integer;t:tablou;var c:integer);  

var i,nr:integer;

begin

 nr:=0;

 for i:=1 to n do

   begin

     if t[i]=x then inc(nr);

   end;

 c:=nr;

end;

begin

 read(n);

 for i:=1 to n do

    read(t[i]);

 write('x=');read(x);

 contor(n,x,t,c);

 writeln(c);

end.

Explicație:

Vă mulțumim pentru vizita pe site-ul nostru dedicat Informatică. Sperăm că informațiile oferite v-au fost de ajutor. Nu ezitați să ne contactați pentru orice întrebare sau dacă aveți nevoie de asistență suplimentară. Vă așteptăm cu drag data viitoare și nu uitați să ne adăugați la favorite!


ID Learners: Alte intrebari