Question

[Nguyễn Minh Hiếu]

Kiểm tra mảng có đối xứng hay ko? Kiểm tra mảng có tăng dần hay ko???

Tin học 7. PASCAL. Mảng

giúp mình với các bạn ơi!!!!!!!

Thank you very much!!!!

Answer 1

[Nguyễn Minh Hiếu]

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ô

Answer 2

[Nguyễn Lê Phước Thịnh]

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.