Question

Se introduc n numere egale cu 0,1 sau 2.Sa se scrie un program care sa
determine pe ce pozitie apare primul 0, de cate ori apare fiecare cifra si care
este cifra folosita cel mai putin. Exemplu: Date de intrare n=7
numere:1 1 0 2 1 0 1 Date de iesire: pozitia primul zero 3, cifra 0 apare
de 2 ori cifra 1 apare de 4 ori cifra 2 apare de 1 ori, cel mai putin: 2. Pascal

Answer 1

Răspuns:

Program numere;

var n,poz,numar,i:integer;

   c0,c1,c2:integer;

begin

write('Numar de numere : ');read(n);

writeln;

c0:=0;c1:=0;c2:=0;

for i:=1 to n do begin

                 write('Numar ');read(numar);

                 if (numar=0) then  begin

                                    if (poz=0) then poz:=i;

                                    c0:=c0+1;

                                    end;

                 if (numar=1) then  c1:=c1+1;

                 if (numar=2) then  c2:=c2+1;

                 end;

writeln('Pozitia primului 0 este ',poz);

writeln('0 apare de ',c0,' ori');

writeln('1 apare de ',c1,' ori');

writeln('2 apare de ',c2,' ori');

//gasire cel mai putin folosit numar

if (c0>c1) and (c1>c2) then

               writeln('Cel mai putin folosit este 2 de ',c2,' ori');

if (c0>c2) and (c2>c1) then

               writeln('Cel mai putin folosit este 1 de ',c1,' ori');

if (c1>c0) and (c0>c2) then

               writeln('Cel mai putin folosit este 2 de ',c2,' ori');

if (c1>c2) and (c2>c0) then

               writeln('Cel mai putin folosit este 0 de ',c0,' ori');

if (c2>c0) and (c0>c1) then

               writeln('Cel mai putin folosit este 1 de ',c1,' ori');

if (c2>c1) and (c1>c0) then

               writeln('Cel mai putin folosit este 0 de ',c0,' ori');

readln;  

end.