Cho dãy A gồm N số nguyên(N<100.Hỏi a.Hãy tính tổng các số chẵn có trong A b. Đưa ra giá trị của số chắn đầu tiên Đưa ra giá trị của số chẵn cuối cùng

hoaithuspls

2 năm trước

Loga Sinh Học lớp 12

0 lượt thích 24 xem

1 trả lời

Thích Trả lời

madara782001

uses crt;

var a:array[1..100000] of longint;

i,j,n,tong:longint;

begin

clrscr;

write('Nhap do dai cua day: ');readln(n);

for i:=1 to n do

begin

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

end;

tong:=0;

for i:=1 to n do

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

for i:=1 to n do

for j:=n downto 1 do

if a[i] mod 2=0 then break;

if a[j] mod 2=0 then break;

writeln('Tong cac so chan trong day: ',tong);

writeln('So chan dau tien: ',a[i]);

writeln('So chan cuoi cung: ',a[j]);

readln;

end.

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

phamhuuhanh1970

uses crt;

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

i, n, s : integer;

begin

clrscr;

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

s := 0;

for i := 1 to n do

begin

clrscr;

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

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

end;

writeln('Trong so chan : ', s);

write('Gia tri chan dau tien : ');

for i := 1 to n do

if a[i] mod 2 = 0 then begin write(a[i]); break end;

writeln;

write('Gia tri chan cuoi cung : ');

for i := n downto 1 do

if a[i] mod 2 = 0 then begin write(a[i]); break end;

readln

end.

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

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

Mĩ có thực hiện thành công chiến lược chính sách đối ngoại không ? vì sao ?

liệt kê sự việc trong văn bản chiếc lá cuối cùng đầy đủ nha

anh chị giải giúp em câu 8 với ạ

Tài khoản thư điện tử gồm những gì

8. a) 1,23 <x< 2,13 ..... b) 47,8 > x > 45,6 L.... c) 164,32 < x < 169,9 .X.. 9. Tìm số thập phân x có một chữ số ở phần thập phân a) 34,12 <x < 34,56

Vẽ một hình có 2 cặp đối đỉnh và PHẢI ĐÁNH DẤU BẰNG NHAU ĐÁNH DẤU CÁC ĐIỂM,..BLA BLA CÁC THỨ,...NÓI CHUNG LÀ VẼ ĐẦY ĐỦ ạ (em đang cần rất gấp ạ hứa sẽ vote 5 sao và ctlhn)

Làm giúp mik bài 1 và 2 phần Bài Tập nha!!!!!!! Ngắn lắm chỉ là tình huống thôi. Giải giùm mik nha plzzzzzzzzzz!!!!!

1.Nguyên nhân và hậu quả của việc gia tăng dân số! 2. Tại sao đới nóng là nơi tập trung dân đông của thế giới? Tại sao nói di dân ở đới nóng rất đa dạng và phức tạp?

Xem cho mình coi bài la Mã 10 ở dưới đúng ko ạ ko đúng thì sửa lại hộ mình ạ

hãy nêu các cách phòng chống giun kim?