KHÁM PHÁ Học Toán + Tiếng Anh theo Sách Giáo Khoa cùng học online và gia sư dạy kèm tại nhà từ lớp 1 đến lớp 12 với giá cực kỳ ưu đãi kèm quà tặng độc quyền"CỰC HOT".
Viết chương trình pascal kiểm tra mảng đó có tăng dần hay không
By Adalynn
Viết chương trình pascal kiểm tra mảng đó có tăng dần hay không
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.
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.