Mn giúp em bài này vs ạ 1/ Viết chương trình nhập vào mảng một chiều A gồm n số nguyên (n <=100). Tính tổng và in ra màn hình các số âm có giá trị lẻ t rong mảng 2/ Viết chương trình nhập vào mảng một chiều A gồm n số nguyên (n <=100). Đếm và đưa ra màn hình số lượng các phần tử

laohactotbung

2 năm trước

Mn giúp em bài này vs ạ 1/ Viết chương trình nhập vào mảng một chiều A gồm n số nguyên (n <=100). Tính tổng và in ra màn hình các số âm có giá trị lẻ t rong mảng 2/ Viết chương trình nhập vào mảng một chiều A gồm n số nguyên (n <=100). Đếm và đưa ra màn hình số lượng các phần tử chia hết cho k vừa có giá trị chẵn trong dãy.

Loga Sinh Học lớp 12

0 lượt thích 42 xem

1 trả lời

Thích Trả lời

thuanhtra11

Câu 1

uses crt;
var n,i,s:integer;
a:array[1..100] of integer;
begin
clrscr;
write('Nhap n: ');readln(n);
for i:=1 to n do begin
write('Nhap so thu ',i,': ');readln(a[i]);
if (a[i] mod 2=-1) and (a[i]<0) then s:=s+a[i];
end;
write('Cac so am co gia tri le: ');
for i:=1 to n do if (a[i] mod 2=-1) and (a[i]<0) then begin write(a[i],', ') end;
writeln('Tong cac so am co gia tri le: ',s);
readln
end.

Câu 2

var n,i,s:integer;

a:array[1..100] of integer;

begin

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

write('Nhap k: ');readln(k);

for i:=1 to n do begin

write('Nhap so thu ',i,': ');readln(a[i]);

if (a[i] mod 2=0) and (a[i] mod k=0) then s:=s+1;

end;

writeln('Co ',s,' phan tu chia het cho k vua co gia tri chan trong day');

write('so luong cac phan tu chia het cho k vua co gia tri chan trong day: ');

for i:=1 to n do if (a[i] mod 2=0) and (a[i] mod k=0) then write(a[i],', ');

readln

end.

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

hoctot

`1)`

var i,n,s: integer;

a:array[1..100] of integer;

begin

writeln('Nhap n: '); read(n);

for i:=1 to n do

begin

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

end;

writeln('Cac so le: ')

s:=0;

for i:=1 to n do

if a[i] mod 2 <> 0 then

begin

s:=s+a[i];

write(a[i],' ');

end;

writeln('- Tong so le: ',s);

for i:=1 to trunc(sqrt(s)) do if s mod i = 0 then d:=d+1;

if d > 1 then writeln('Tong do khong la so nguyen to') else writeln('Tong do la so nguyen to');

readln

end.

`2)`

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

i,n,k,t:integer;

begin

clrscr;

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

for i:=1 to n do

begin

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

end;

write('Nhap so k='); readln(k);

t:=0;

for i:=1 to n do

if a[i] mod k=0 then t:=t+a[i];

writeln('Tong cac so chia het cho ',k,' la: ',t);

readln;

end.

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

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

Hòa tan m gam hỗn hợp X gồm Fe và Cu vào dung dịch HCl 2M (lấy dư 10% so với lượng cần dùng ) sau phản ứng thu được 4,48 lít khí (đktc). Mặt khác, đốt cháy m gam X trong khí clo dư thu được 48,7g hỗn hợp muối . a) Viết các phương trình phản ứng xảy ra b) Tính m và phần trăm khối lượng của Cu trong hỗn hợp X c) Tính thể tích dung dịch HCl đã dùng.

Trung bình cộng của 2021 số tự nhiên liên tiếp đầu tiên?

Đại hội Đảng lần đầu tiên được tổ chức tại Hà Nội là A: Đại hội Đảng lần thứ III (1960). B: Đại hội Đảng lần thứ V (1981). C: Đại hội Đảng lần thứ IV (1976). D: Đại hội Đảng lần thứ II (1951). Trả lời sai 31 Tổ chức nào sau đây không phải là tiền thân của Liên minh châu Âu? A: Cộng đồng năng lượng nguyên tử châu Âu B: Cộng đồng thương mại – tài chính châu Âu C: Cộng đồng than, thép châu Âu D: Cộng đồng kinh tế châu Âu Nội dung nào dưới đây là nguyên nhân chủ yếu khiến kết quả ta giành được tại Hội nghị Giơ-ne-vơ của ta chưa phải là thắng lợi hoàn toàn? A: Do lập trường ngoan cố của Pháp B: Do trên chiến trường ta chưa giành được thắng lợi hoàn toàn. C: Do tình hình thế giới diễn ra căng thẳng D: Do Mĩ tìm cách phá hoại hiệp định. Ý nghĩa cơ bản của cuộc Tiến công chiến lược Đông Xuân 1953 - 1954 là A: cơ quan kháng chiến được bảo toàn B: Kế hoạch Ro-ve bị phá sản. C: Làm thất bại âm mưu D: buộc địch phải bị động phân tán lực lượng. Tại sao nói chiến thắng trong 12 ngày đêm ở Hà Nội, Hải Phòng từ ngày 18 - 29/12/1972 được gọi là trận " Điện Biên Phủ trên không"? A: Buộc quân Mĩ phải rút về nước. B: Buộc Mĩ phải kí Hiệp định Pari chấm dứt chiến tranh ở Việt Nam. C: Làm phá sản chiến lược "Việt Nam hóa chiến tranh" của Mĩ. D: Chứng tỏ sự lớn mạnh của quân đội ta.

trên một đường dây tải đi một công suất điện xác định dưới hiệu điện thế 100 000v.Phải dùng hiệu điện thế ở hai đầu đường dây này là bao nhiêu để công suất hao phí vì tỏa nhiệt giảm đi 4 lần giúp với ạ !!!

MN GIÚP VỚI Ạ!!! Viết chương trình: Khai báo - tên chương trình -thư viện - biến( mảng học sinh ) Phần Thân : - nhập 1 số N tùy ý thuộc Z+ từ bàn phím - tạo ngẫu nhiên N số nguyên thuộc [-205] đến [+205 ] - in dãy số vừa tạo ra màn hình - tính tổng các số chẵn và tổng các số lẻ có trong mảng 1 chiều Kết: - sắp xếp dãy A thành dãy không giảm. MN GIÚP VỚI Ạ!!!

CÂU 1: Nhập vào số nguyên dương N, viết chương trình tổng sau S=S+ 1/3+1/5+....+1/N ví dụ 1: Nhap N=3 Tong la 1.3 // (1+1/3) ví dụ 2: Nhap N = 6 Tong la 1.53 // (1+1/3+1/5) CHÚ Ý NÀY NHA (1/3:Ý LÀ 1 PHẦN 3 NHA...) CÂU 2 các đoạn lệnh sau trong palcal sau có hợp lệ không? Nếu khong hãy sửa lại cho đúng a) X i:=10; while X:=10 do X:=X+5 Giúp mk vs đang cần gấp

1 Sự kiện nào đánh dấu phong trào công nhân Việt Nam đi vào đấu tranh có tổ chức và mục đích chính trị rõ ràng? A: Phong trào cách mạng 1930 - 1931 B: Phong trào công nhân Ba Son (8/1925) C: Ba tổ chức cộng sản ra đời D: Đảng Cộng sản Việt Nam ra đời 8 Nguyên nhân khiến Nhật tiến hành đảo chính Pháp ở Đông Dương ngày 9/3/1945 là A: Mâu thuẫn Nhật - Pháp càng ngày càng gay gắt. B: Thất bại gần kề của Nhật trong Chiến tranh thế giới thứ hai C: Phong trào cách mạng dâng cao gây cho Nhật nhiều khó khăn D: Làm thất bại âm mưu "đánh nhanh, thắng nhanh". Trả lời sai 9 Nội dung dưới đây của Hiệp định Giơ-ne-vơ năm 1954 chứng tỏ các nước tham dự Hội nghị tôn trọng độc lập, chủ quyền, thống nhất và toàn vẹn lãnh thổ của các nước Đông Dương? A: Các bên tham chiến thực hiện cuộc tập kết, chuyển quân, chuyển giao khu vực B: Các nước tham dự Hội nghị cam kết tôn trọng các quyền dân tộc cơ bản của ba nước Đông Dương C: Các bên tham chiến cùng ngừng bắn, lập lại hòa bình trên toàn Đông Dương D: Cấm đưa quân đội và vũ khí nước ngoài vào các nước Đông Dương Thành tựu khoa học kĩ thuật đầu tiên của Liên Xô sau chiến tranh thế giới thứ hai A: Phóng thành công vệ tinh nhân tạo lên khoảng không vũ trụ. B: Sản xuất công nghiệp tăng 73% C: Phóng tàu vũ trụ đưa Ga-ga-rin bay vòng quanh Trái Đất. D: Chế tạo thành công bom nguyên tử Đến đầu năm 1930, ba tổ chức cộng sản ở Việt Nam cần phải hợp nhất là do A: Cùng chung tư tưởng Mác – Lê-nin, cùng mục đích lãnh đạo phong trào cách mạng Việt Nam B: Thực dân Pháp tăng cường đàn áp, khủng bố, cần phải hợp nhất để tránh tổn thất. C: Ba tổ chức hoạt động riêng rẽ, tranh giành ảnh hưởng lẫn nhau D: Cần phải thống nhất để lãnh đạo cuộc đấu tranh của các lực lượng yêu nước Xu thế chung của thế giới ngày nay là A: Lấy kinh tế làm trọng điểm B: Đa cực, nhiều trung tâm C: Hòa hoãn và hòa dịu trong quan hệ quốc tế D: Hòa bình ổn định và hợp tác phát triển kinh tế Sự kiện đánh dấu Nguyễn Ái Quốc từ chủ nghĩa yêu nước đến chủ nghĩa Mác - Lê-nin và đi theo con đường cách mạng vô sản là? A: Bỏ phiếu tán thành gia nhập Quốc tế thứ ba và tham gia sáng lập Đảng Cộng sản Pháp. B: Đọc Sơ thảo luận cương của Lê-nin về vấn đề dân tộc và thuộc địa. C: Gửi bản yêu sách của nhân dân An Nam đến Hội nghị Véc-xai. D: Tham gia sáng lập Hội Liên hiệp thuộc địa. Trả lời sai 28 Tại sao Đảng xác định nhiệm vụ của cách mạng miền Nam sau Hiệp định Pari năm 1973 là tiếp tục cuộc cách mạng dân tộc dân chủ nhân dân? A: Vì trên cả nước vẫn có quân viễn chinh Mĩ. B: Vì hai miền chưa tổ chức tổng tuyển cử. C: Vì quân Mĩ vẫn ở miền Nam Việt Nam. D: Vì chính quyền Sài Gòn chưa bị đánh đổ.

ahhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhh mn làm hộ chỗ này đc ko ah

Giải giúp mình c44 45 với ạ. Mình đang cần gấp ạ. Cảm ơn rất nhiều ạ.💯🎉

Theo em trong thời kỳ hiện nay học sinh cần phải làm gì để thể hiện lòng yêu nước trả lời bằng dàn ý

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