1.

𝑢𝑠𝑒𝑠 𝑐𝑟𝑡;

𝑣𝑎𝑟 𝑎:𝑎𝑟𝑟𝑎𝑦[1..100] 𝑜𝑓 𝑙𝑜𝑛𝑔𝑖𝑛𝑡;

𝑛,𝑖,𝑡𝑜𝑛𝑔:𝑙𝑜𝑛𝑔𝑖𝑛𝑡;

𝑏𝑒𝑔𝑖𝑛

𝑐𝑙𝑟𝑠𝑐𝑟;

𝑤𝑟𝑖𝑡𝑒('𝑛ℎ𝑎𝑝 𝑛: ');𝑟𝑒𝑎𝑑𝑙𝑛(𝑛);

𝑓𝑜𝑟 𝑖:=1 𝑡𝑜 𝑛 𝑑𝑜

𝑏𝑒𝑔𝑖𝑛

𝑤𝑟𝑖𝑡𝑒('𝑎',𝑖,']=');𝑟𝑒𝑎𝑑𝑙𝑛(𝑎[𝑖]);

𝑒𝑛𝑑;

𝑓𝑜𝑟 𝑖:=1 𝑡𝑜 𝑛 𝑑𝑜

𝑖𝑓 𝑎[𝑖] 𝑚𝑜𝑑 2=0 𝑡ℎ𝑒𝑛

𝑡𝑜𝑛𝑔:=𝑡𝑜𝑛𝑔+𝑎[𝑖];

𝑤𝑟𝑖𝑡𝑒('𝑡𝑟𝑜𝑛𝑔 𝑐𝑢𝑎 𝑐𝑎𝑐 𝑠𝑜 𝑐ℎ𝑎𝑛 𝑡𝑟𝑜𝑛𝑔 𝑑𝑎𝑦 𝑙𝑎: ',𝑡𝑜𝑛𝑔);

𝑟𝑒𝑎𝑑𝑙𝑛

𝑒𝑛𝑑.

2.

𝑢𝑠𝑒𝑠 𝑐𝑟𝑡;

𝑣𝑎𝑟 𝑎:𝑎𝑟𝑟𝑎𝑦[1..100] 𝑜𝑓 𝑙𝑜𝑛𝑔𝑖𝑛𝑡;

𝑛,𝑖,𝑡𝑏𝑐,𝑡𝑜𝑛𝑔:𝑙𝑜𝑛𝑔𝑖𝑛𝑡;

𝑏𝑒𝑔𝑖𝑛

𝑐𝑙𝑟𝑠𝑐𝑟;

𝑤𝑟𝑖𝑡𝑒('𝑛ℎ𝑎𝑝 𝑛: ');𝑟𝑒𝑎𝑑𝑙𝑛(𝑛);

𝑓𝑜𝑟 𝑖:=1 𝑡𝑜 𝑛 𝑑𝑜

𝑏𝑒𝑔𝑖𝑛

𝑤𝑟𝑖𝑡𝑒('𝑎',𝑖,']=');𝑟𝑒𝑎𝑑𝑙𝑛(𝑎[𝑖]);

𝑒𝑛𝑑;

𝑓𝑜𝑟 𝑖:=1 𝑡𝑜 𝑛 𝑑𝑜

𝑖𝑓 𝑎[𝑖] 𝑚𝑜𝑑 2=0 𝑡ℎ𝑒𝑛

𝑡𝑜𝑛𝑔:=𝑡𝑜𝑛𝑔+𝑎[𝑖];

𝑡𝑏𝑐:=𝑡𝑜𝑛𝑔/𝑛;

𝑤𝑟𝑖𝑡𝑒('𝑡𝑟𝑢𝑛𝑔 𝑏𝑖𝑛ℎ 𝑐𝑜𝑛𝑔 𝑐𝑢𝑎 𝑑𝑎𝑦 𝑙𝑎: ',𝑡𝑏𝑐);

𝑟𝑒𝑎𝑑𝑙𝑛

𝑒𝑛𝑑.

1.

uses crt;

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

n,i,tong:longint;

begin

clrscr;

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 a[i] mod 2=0 then

tong:=tong+a[i];

write('trong cua cac so chan trong day la: ',tong);

readln

end.

2.

uses crt;

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

n,i,tbc,tong:longint;

begin

clrscr;

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 a[i] mod 2=0 then

tong:=tong+a[i];

tbc:=tong/n;

write('trung binh cong cua day la: ',tbc);

readln

end.

3. (hong biết làm)^_^