mình đang cần gấp!!!!

Giúp mình với các bạn

Giúp em với các thầy cô

uses crt;

var a:array[1..100]of integer;

i,n,kt,kt1:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do

begin

write('A[',i,']='); readln(a[i]);

end;

kt:=0;

for i:=1 to n do

if a[i]<>a[n-i+1] then kt:=1;

if kt=0 then writeln('Day la mang doi xung')

else writeln('Day khong la mang doi xung');

kt1:=0;

for i:=1 to n-1 do

if a[i]>a[i+1] then kt1:=1;

if kt1=0 then writeln('Day la mang tang dan')

else writeln('Day khong la mang tang dan');

readln;

end.

Hay

um hay

bạn nói siêu đúng

cung duoc

Có tương đương

vì sao

Tạo biểu đồ:

B1:Chọn 1 ô trong miền có dữ liệu cần vẽ biểu đồ

B2:Nháy nút Chart Wizard trên thanh công cụ

B3:Nháy liên tiếp nút Next trên các hộp thoại nháy nút Finsish trên hộp thoại cuối cùng ( khi nút Next mở đi ) kết quả hiện lên biểu đồ

Chúc bn học tốt

1,Chon 1 o trong mien co du lieu can ve bieu do

2.Nhay nut Chart Wizard tren thanh cong cu

3,Nhay lien tiep nut Next tren cac hop thoai nhay nut Finsish tren hop thoai cuoi cung=> ket qua la bieu do ban muon

Olm chào em, cảm ơn đánh giá của em về chất lượng bài giảng của Olm, cảm ơn em đã đồng hành cùng Olm trên hành trình tri thức. Chúc em học tập hiệu quả và vui vẻ cùng Olm em nhé!

156ab là kiểu dữ liệu kí tự

mong là giúp được bạn :D