Viết chương trình nhập vào từ bàn phím một dãy không vượt quá 30 số nguyên. Kiểm tra rồi cho biết dãy số vừa nhập có phải là một dãy số không giảm hay không. Ví dụ dãy 3, 5, 5, 7, 7, 9 là một dãy số không giảm. Bằng Pascal nha !!
Viết chương trình nhập vào từ bàn phím một dãy không vượt quá 30 số nguyên. Kiểm tra rồi cho biết dãy số vừa nhập có phải là một dãy số không giảm hay không. Ví dụ dãy 3, 5, 5, 7, 7, 9 là một dãy số không giảm. Bằng Pascal nha !!
uses crt;
var n,i:byte;
a:array[0..255] of integer;
kt:boolean;
BEGIN
clrscr;
kt:=true;
write(‘Nhap n:’); readln(n);
for i:=1 to n do
begin
write(‘Nhap a[‘,i,’]=’);
readln(a[i]);
if (i>1) and (a[i]>a[i-1]) then kt:=false;
end;
if kt then write(‘Giam’)
else write(‘Khong giam’);
readln
END.
Chúc bạn học tốt.
Cho mình xin câu trả lời hay nhất.
program kiemtra;
var A:array[1..30] of integer;
n,i:byte;
kt:boolean;
begin
clrscr;
write(‘Nhap so luong phan tu: ‘); readln(n);
writeln(‘NHAP GIA TRI TUNG PHAN TU CUA DAY’);
for i:=1 to n do
begin
write(‘phan tu thu ‘,i,’: ‘);
readln(A[i]);
end;
kt:=true;
for i:=1 to n-1 do
if A[i]>A[i+1] then
begin
kt:=false;
break;
end;
if kt=true then write(‘La day khong giam’)
else write(‘Khong phai day khong giam’);
readln
end.