Question

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

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

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.