👤
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 :

NIKTELZE

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 pentru vizita pe site-ul nostru dedicat Informatică. Sperăm că informațiile prezentate v-au fost utile. Dacă aveți întrebări sau aveți nevoie de suport suplimentar, nu ezitați să ne contactați. Ne bucurăm să vă revedem și vă invităm să ne adăugați în lista de favorite!


Ze Schools: Alte intrebari