Question

Cho input đầu vào là mảng A có N phần tử ( 1 ≤ N ≤ 5, -10² ≤ A_i ≤ 10² )a/ Hãy cho biết mảng A có tạo thành một cấp số cộng hay không?b/ Hãy cho biết mảng A có đối sánh với nhau hay không? ( 1 mảng được gọi là đối sánh là nếu mảng đó có tính chất xen kẻn 1 số dương theo sau là 1 số âm )

Giúp em với ạ :<

Answer 1

uses crt;

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

i,n,x:integer;   

kt,kt1:boolean;

begin

clrscr;

repeat   

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

until (1<=n) and (n<=5);

for i:=1 to n do 

begin     

repeat       

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

until (-100<=a[i]) and (a[i]<=100); 

end;

kt:=true;

x:=abs(a[2]-a[1]);

for i:=2 to n do 

if x<>abs(a[i]-a[i-1]) then     

begin       

kt:=false;       

break;     

end;

if kt=true then writeln('Day la day cap so cong')

else writeln('Day khong la day cap so cong');

kt1:=true;

for i:=1 to n do 

if ((a[i]>0) and (a[i+1]>0)) or ((a[i]<0) and (a[i+1]<0)) then     

begin       

kt1:=false;       

break;     

end;

if kt1=true then writeln('Mang A co doi sanh voi nhau')

else writeln('Mang A khong doi sanh voi nhau');

readln;

end.