Question

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

Answer 1

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.