viết chương trình làm việc với dãy số,nhập giá trị n ( n thuộc n*) là các phần tử của dãy số, nhập vào các phần tử của dãy, hiển thị ra màn hình dãy số trên, tính tổng các phần tử của dãy và hiển thị tổng này ra màn hình, hiển thị các phần tử là bội của 3 và tổng của chúng ra màn

nangpuon

2 năm trước

viết chương trình làm việc với dãy số,nhập giá trị n ( n thuộc n*) là các phần tử của dãy số, nhập vào các phần tử của dãy, hiển thị ra màn hình dãy số trên, tính tổng các phần tử của dãy và hiển thị tổng này ra màn hình, hiển thị các phần tử là bội của 3 và tổng của chúng ra màn hình, nhập vào một số x thông báo x có thuộc dãy số hay không ?

Loga Sinh Học lớp 12

0 lượt thích 21 xem

1 trả lời

Thích Trả lời

246732903688683

program ct;

uses crt;

var A:array[1..1000] of integer;

i,n,x:integer;

S,Sb:longint;

begin clrscr;

write('Nhap so phan tu: '); readln(n);

for i:=1 to n do

begin

write('Nhap A[',i,']: '); readln(A[i]);

end;

for i:=1 to n do

begin

S:=S+A[i];

if A[i] mod 3=0 then Sb:=Sb+A[i];

end;

write('Day so tren la: ');

for i:=1 to n do

write(A[i]:3);

writeln;

writeln('Tong la: ',S);

write('Cac phan tu la boi cua 3 la: ');

for i:=1 to n do

if A[i] mod 3=0 then write('A[i]:3);

writeln;

writeln('Tong la: ',Sb);

write('Nhap so x: '); readln(x);

for i:=1 to n do

if A[i]=x then write(x', thuoc day so tren')

else write(x', khong thuoc day so tren');

readln;

end.

Học tốt!

Vote (0) Phản hồi (0) 2 năm trước

vuhoaithuong4198

uses crt;
var n,i,s,s1,x:longint; a:array[1..1000000]of longint; kt:boolean;
begin
clrscr;
repeat
write('n=');readln(n);
until n>0;
kt:=true;
for i:=1 to n do
begin
write('a[',i,']=');read(a[i]);
inc(s,a[i]);
if a[i] mod 3=0 then inc(s1,a[i]);
end;
write('Day so: ');
for i:=1 to n do write(a[i],' '); writeln;
writeln('Tong: ',s);
write('Boi 3: ');
for i:=1 to n do
if a[i] mod 3=0 then write(a[i],' '); writeln;
writeln('Tong: ',s1);
write('x=');readln(x);
for i:=a[1] to a[n] do
if x<>a[i] then kt:=false;
if kt then writeln('Co') else writeln('Khong');
readln
end.

Vote (0) Phản hồi (0) 2 năm trước

Các câu hỏi liên quan

So sánh khu công nghiệp tập trung và trung tâm công nghiệp Mng giúp mình vớiiii nhé😘🙆

liên hệ bản thân qua bài thơ vội vàng

Viết đoạn văn chủ đề tự chọn có sử dụng một câu cầu khiến và một câu nghi vấn (Làm xong ghi xuống dưới đâu là câu khiến, câu nghi vấn)

Cho hai tia Oy, Oz cùng nằm trên một nửa mặt phẳng có bờ chứa tia Ox. Biết góc xOy = 30°, góc xOz=120°. a) Tính số đo góc yOz. b) Vẽ tia phân giác Om của góc xOy, tia phân giác On của góc xOz. Tính số đo góc mOn. Giải hộ e đầy đủ cách giải ạ

Em hãy viết một đoạn văn về quy nạp hoặc diễn dịch về luận điểm sau ''bài thơ Nhớ Rừng của Thế Lữ tràn đầy lãng mạn''

Giúp em phần c ,d vs em cần gấp

cho tam giác ABC vuông tại A. Gọi M là trung điểm của AC.Lấy điểm D thuộc tia đối của tia MB sao cho M là trung điiểm BD a/So sánh bc và CD b/So sánh góc ABM và góc CBM

Vẽ 1 hoặc nhiều nhân vật trong cô gái văn chương và hồn ma đói khát ạ

Ở cà chua 2n=24. Một tế bào trải qua 5 lần nguyên phân liên tiếp a) Xác định số tế bào con tạo thành thành, số NST đơn mà môi trường nội bào cung cấp cho qua trình trên. b) Xác định số NST kép, số tâm động của kì giữa lần phân bào thứ 5

Hãy chứng minh và giải thích câu tục ngữ 'Có chí thì nên'

Loga.vn - Cộng Đồng Luyện Thi Trực Tuyến