Question

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

Answer 1

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: