Viết chương trình pascal kiểm tra mảng đó có tăng dần hay không
2 câu trả lời
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.
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.
