👤
a fost răspuns

se citesc numere de la tastatura pana la aparitia lui 0. Sa se afiseze "crescator" daca sirul este in ordine crescatoare, "descrescator" daca sirul este in ordine descrescatoare sau "nemonoton" daca sirul nu este nici crescator nici descrescator. Am nevoie ca problema sa fie rezolvata cu structura repetitiva while. Ex: 1 3 5 7 0 - crescator;
7 4 2 1 0 - descrescator, 9 3 1 5 0 - nemonoton. Se pot citi pana la 1000 de numere

Răspuns :

LOCKEDSSOULSEN

Răspuns:

var x, n, cresc, desc : integer;

begin

 repeat  

 n:=x;

 readln(x);

 if x>n then cresc:=cresc+1;

 if x<n then desc:=desc+1;

 until x=0;

 if (cresc-1>0) and (desc-1>0) then writeln('Nemonoton')

 else if cresc-1>0 then writeln('Crescator')

 else if desc-1>0 then writeln('Descrescator');

end.

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


En Learnings: Alte intrebari