Cho 1 dãy số gồm n phần tử ( n <=250 ) và giá trị a1;a2;... an các phần tử a[i] a.Tính tổng các phần tử chẵn trong dãy. b. Đếm các phần tử không âm trong dãy.

Leminhhung1901

2 năm trước

Loga Sinh Học lớp 12

0 lượt thích 26 xem

1 trả lời

Thích Trả lời

huyvan

a,
Var a: array (1...250)of integer;

n,i,t: integer;
begin
write (' nhap so luong phan tu:'); readln (n);
t:=0;

for i:=1 to n do

begin
write ('A(',i,')=');

readln (A(i));

if (A(i) mod 2=0) then t:=t+ A(i);

end;

write('tong cac phan tu chan trong day:',t);

readln;
end.

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

goikobasket98

var a:array[1..250] of integer;n,i:integer;

procedure xl;

var t,d:integer;

begin

t:=0;

for i:=1 to n do

begin

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

end;

writeln(t);

d:=0;

for i:=1 to n do

if a[i]<=0 then inc(d);

write(d);

end;

begin

assign(input,'bt.inp');reset(input);

assign(output,'bt.out');rewrite(output);

readln(n);

for i:=1 to n do read(a[i]);

xl;

close(input);

close(output);

end.

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

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

ÔI HỠI NHỮNG CON NGƯỜI ĐÃ PHẠM LUẬT HỎI ĐÁP HAY CHƯA BAO GIỜ PHẠM PHẢI, TA CÓ 1 NHIỆM VỤ MÀ CHẮC CÁC HUYNH RẤT THIK: vẽ đậu mầm ik:)))

Sử dụng thao tác lập luận bác bỏ Đề: Chỉ có vào đại học mới có tương lai.

Cho hình bình hành ABCD (góc A > 90 độ) có hai đường chéo cắt nhau tại I. Gọi M là trung điểm BC, AM cắt đường tròn ngoại tiếp tam giác ABC tại N, gọi H là hình chiếu vuông góc của C trên AB Cm: ADNH nội tiếp

+ Lựa chọn một chủ đề/bài học trong chương trình GDPT 2018 - môn Lịch sử và địa lí.

giúp mik nha! Một cái thùng sắt không nắp hình hộp chữ nhật có chiều rộng bằng 1,2m, chiều dài bằng chiều rộng, chiều cao bằng 0,5m. Người ta thực hiện sơn mặt ngoài của thùng. Tính diện tích đã sơn của thùng sắt. Tính khối lượng sơn cần dùng để sơn cái thùng, biết rằng cứ 10m2 thì cần 2,5kg sơn. trình bày bài giải cảm ưn trước

hai người thợ cùng làm chung 1 công việc trong 7 giờ 12 phút thì xong .nếu người thứ nhất làm trong 5 giờ và người thứ 2 làm trong 6 giờ thì cả 2 người chỉ làm đc 3 phần 4 công việc .hỏi 1 người làm công việc đó trong mấy giờ thì xong ? (giúp mình với ạ mình bó tay rồi)

Hãy tóm tắt những ý chính của bản tuyên ngôn độc lập đầu tiên của nước ta. Lưu ý không chép mạng và ngắn thôi nha.

5 ô vuông nhỏ trên phong bì thư dùng để làm gì?

Muốn đưa một vật có khối lượng 100 kg lên cao bằng ròng rọc động. a. Tính lực kéo ở đầu dây. b. Muốn đưa vật lên cao 4m, phải kéo dây một đoạn là bao nhiêu? c. Tính công đã thực hiện khi kéo vật lên.

Hai người cùng kéo một cái thùng nặng trên mặt sàn nằm ngang bằng các lực 300 N và 400 N theo hướng chuyển động của vật. Tính công mà mỗi người thực hiện và công tổng cộng khi thùng dịch chuyển đều với tốc độ 0,5 m/s trong thời gian 10 giây.

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