BÀI TẬP 47: DÃY TĂNG

Một dãy số a₁, a₂, …,a_n được gọi là dãy tăng nếu như nó thoả điều kiện:

a₁ < a₂ < … < a_n

            Yêu cầu: Cho dãy số nguyên a₁, a₂, …, a_n. Hãy cho biết dãy số này có phải dãy tăng hay không? Nếu không phải dãy tăng thì hãy cho biết chỉ số k nhỏ nhất của phần tử làm cho dãy không có tính chất của dãy tăng.

            Dữ liệu vào: Cho từ tệp văn bản có tên BL4.INP có dạng như sau:

            - Dòng đầu tiên ghi số nguyên N (1 < n < 1000)

            - Dòng thứ 2 ghi dãy n số nguyên a₁, a₂, …, a_n (-1000 < ai < 1000, i=1..n)

            Kết quả: Ghi ra tệp văn bản có tên BL4.OUT gồm một số nguyên duy nhất k. Trường hợp dãy đã cho là dãy tăng thì ghi số 0.

            Ví dụ 1:

BL4.INP	BL4.OUT
6 2 7 10 18 25 41	0

           

            Ví dụ 2:

BL4.INP	BL4.OUT
8 3 6 10 7 15 20 18 12	4

    CODE THAM KHẢO

    program Day_tang;

    var a:array[1..1000] of longint;

            i,n: longint;

            f:text;

    begin

        assign(f, 'bl4.inp'); reset(f);

        Readln(f,n);

        for i:=1 to n do read(f,a[i]);

        close(f);

        assign(f,'bl4.out'); rewrite(f);

        i:=1;

        while (i<n-1) and (a[i] < a[i+1]) do inc(i);

        if i < n-1 then write(f,i+1) else write(f,0);

        close(f);

end.