Viết chương trình sử dụng biến mảng để nhập từ bàn phím các phần tử của một dãy số nguyên. Độ dài của dãy cũng được nhập từ bàn phím a) In các số ra màn hình b) Tính tổng các phần tử lẻ c) Đếm xem có bao nhiêu phần tử chia hết cho 3 d) Tính giá trị trung bình của các phần tử e)

Nguyenmi123

2 năm trước

Viết chương trình sử dụng biến mảng để nhập từ bàn phím các phần tử của một dãy số nguyên. Độ dài của dãy cũng được nhập từ bàn phím a) In các số ra màn hình b) Tính tổng các phần tử lẻ c) Đếm xem có bao nhiêu phần tử chia hết cho 3 d) Tính giá trị trung bình của các phần tử e) In ra các số chẵn và tính tổng các số đó

Loga Sinh Học lớp 12

0 lượt thích 30 xem

1 trả lời

Thích Trả lời

nguyencongbo2002

uses crt;

var i,n,t,s,s1,d:longint;

a:array[1..1000000] of longint;

begin

clrscr;

readln(n);

for i:=1 to n do

begin

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

readln(a[i]);

end;

write('a, ');

for i:=1 to n do write(a[i],' ');

writeln;

s:=0;

for i:=1 to n do if a[i] mod 2<>0 then s:=s+a[i];

writeln('b, ',s);

d:=0;

for i:=1 to n do if a[i] mod 3=0 then d:=d+1;

writeln('c, ',d);

for i:=1 to n do t:=t+a[i];

writeln('d, ',t/n:0:2);

writeln('e, ');

for i:=1 to n do if a[i] mod 2=0 then

begin

write(a[i],' ');

s1:=s1+a[i];

end;

writeln;

write(s1);

readln

end.

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

lehuong2kvit

uses crt;
var i,n,s,tb,d3:longint; a:array[1..1000000]of longint;
begin
clrscr;
write('Nhap do dai cua day: ');readln(n);
for i:=1 to n do
begin
write('Nhap phan tu thu ',i,': ');readln(a[i]);
if a[i] mod 2=1 then inc(s,a[i]);
if a[i] mod 3=0 then inc(d3);
inc(tb,a[i]);
end;
write('a) Cac so vua nhap: ');
for i:=1 to n do write(a[i],' '); writeln;
writeln('b) Tong cac phan tu le: ',s);
writeln('c) Co ',d3,' phan tu chia het cho 3');
writeln('d) Gia tri trung binh cua cac phan tu: ',tb/n:0:2);
write('e) Cac so chan: ');
for i:=1 to n do
if a[i] mod 2=0 then write(a[i],' ');
writeln;
writeln('Tong cac so chan: ',tb-s);
readln
end.

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

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

1.Nêu các bước để tạo biểu đồ trong rang tính 2.Có những loại biểu đồ nào

phân tích bài viếng lăng Bác hoặc có bn nào ghi bài này đầy đủ sạch đẹp gửi cho mk vs ạ

Các câu trong đoạn văn sau được liên kết với nhau bằng cách nào? „Trường em nằm trên con đường Lê Lợi, một con đường nằm ở trung tâm thành phố. Trước tr ường, đỏ rực màu hoa phượng vĩ. Mấy hôm nay, bọn em thường rủ nhau nhặt những cánh hoa học trò rơi về ép vào trong vở.”

anime nam digi ko tradi ko trace thief ko phạm luật hỏi đáp nl: tất cả tiền bay hết vào đây =(((

sự tiến hóa của hình thức sinh sản hữu tính được thể hiện ở những đặc điểm nào

A là ancol no, đơn chức mạch hở ,mạch không phân nhánh cho 4,44gam A tác dụng với Na dư thu được 672 ml H2 ( ở đktc) a, tìm công thức phân tử của A b, viết công thức cấu tạo và gọi tên của A

Nguyên nhân Pháp xâm lược Việt Nam cuối thế kỷ XIX

Vẽ anime hoặc chi bi vvv NL: có đứa chê mk trả lời sai lại còn nghĩ là ko đúng mấy bạn xem ở trang cá nhân mk môn ngữ văn ý xem mà ức!! =((

Phong trào Tây Sơn có những đóng góp lớn nào cho lịch sử nước ta nửa sau Tk XVIII

hãy nêu 1 số dụng cụ thí nghiệm và bảng tính tan trong nước

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