Bài 11: Kiểu mảng

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Nguyễn Thị Mỹ Tâm

Cho dãy số nguyên a1,a2,...an gồm n phần tử (n<=300)                     a, Khai báo và đoạn chương trình để nhập số lượng phần tửN các giá trị cho dãy a1,a2,..an?

b,Đếm các phần tử là bội của 3 trong dãy và đưa ra màn hình?

kiểm tra xem dãy trên có phải là cấp số cộng không?

 

Nguyễn Lê Phước Thịnh
24 tháng 3 2021 lúc 20:23

uses crt;

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

i,n,dem,kt,t:integer;

begin

clrscr;

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

for i:=1 to n do 

  begin

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

end;

dem:=0;

for i:=1 to n do 

  if a[i] mod 3=0 then inc(dem);

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

kt:=0;

for i:=1 to n do 

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

begin

kt:=1;

break;

end;

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

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

readln;

end.


Các câu hỏi tương tự
truongduynam
Xem chi tiết
Bé Thúy
Xem chi tiết
truongduynam
Xem chi tiết
truongduynam
Xem chi tiết
Đỗ Văn Vượng
Xem chi tiết
Cảnh Lê
Xem chi tiết
Long Vũ Bảo
Xem chi tiết
le hiep
Xem chi tiết
Kudo Kido
Xem chi tiết