Kiểu dữ liệu có cấu trúc

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
....

Cho input đầu vào là mảng A có N phần tử ( 1 ≤ N ≤ 5, -102 ≤ Ai ≤ 102 )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 ạ :<

Nguyễn Lê Phước Thịnh
9 tháng 2 2021 lúc 13:40

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.


Các câu hỏi tương tự
Ẩn Nguyen
Xem chi tiết
Nguyễn Thị Ngọc Ánh
Xem chi tiết
Quang Đỗ
Xem chi tiết
CHANNANGAMI
Xem chi tiết
Quý Tạ
Xem chi tiết
Thi Đua Khen Thưởng
Xem chi tiết
1LiG R
Xem chi tiết
Dương Mạnh Hoàng
Xem chi tiết
Nguyễn Luân
Xem chi tiết