Question

Cho dãy N số A: a\(_1\),...,a\(_n\) và 1 số nguyên k

a) Cho biết k xuất hiện bao nhiêu lần trong A?

b) Tính tổng các số chẵn của dãy A

Mấy bạn làm liệt kê giúp mình nha

Mình sắp kt 1 tiết rồi. Help me!!

Answer 1

var

n,k,d,i,s:integer;

begin

write(' nhap n: ');

readln(n);

for i:= 1 to n do

begin

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

readln(a[i]);

end;

for i:= 1 to n do

if k = a[i] then d:=d+1;

writeln(k,' xuat hien ',d,' lan trong mang ');

for i:= 1 to n do

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

write(' tong so chan trong mang la :',s);

readln;

end.

CHÚC BẠN HỌC TỐT :D

Answer 2

ôi chết dưới phần nhập n bạn thêm :

write(' nhap k: ');

readln(k);

CHO mình nha