👤
a fost răspuns

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

Răspuns :

NikTelzone

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.

Vă mulțumim că ați vizitat site-ul nostru web care acoperă despre Informatică. Sperăm că informațiile furnizate v-au fost utile. Nu ezitați să ne contactați dacă aveți întrebări sau aveți nevoie de asistență suplimentară. Ne vedem data viitoare și nu ratați să marcați.


Zone Alte intrebari