Viết chương trình pascal kiểm tra mảng đó có tăng dần hay không

0 bình luận về “Viết chương trình pascal kiểm tra mảng đó có tăng dần hay không”

1. uses crt;
   var n,i,kt:longint; a:array[1..1000000]of longint;
   begin
   clrscr;
   Write(‘n=’);readln(n);
   For i:=1 to n do
      begin
         Write(‘a[‘,i,’]=’);readln(a[i]);
         if(i>1)and(a[i]<=a[i-1])then kt:=1;
      end;
   if(kt=1)then writeln(‘Day khong phai la day tang’) else writeln(‘Day la day tang’);
   readln
   end.

   Bình luận

2. uses crt;
   var a:array[1..10000] of longint;
           n,i:longint;
           check:boolean;
   begin
           clrscr;
           write(‘Nhap so luong phan tu: ‘); readln(n);
           for i:=1 to n do
                   begin
                           write(‘Nhap phan tu thu ‘,i,’: ‘); readln(a[i]);
                           if a[i]>=a[i+1] then check:=true
                           else check:=false;
                   end;
           if check=true then write(‘TRUE, mang tang dan’)
           else write(‘FALSE, mang khong tang dan’);
           readln;
   end.

   Bình luận