chuẩn =537 mình thi toán violympic 6 huyện rồi

var

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

i,s:integer;

begin

for i:= 1 to 20 do

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

for i:= 1 to n do

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

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

readln;

end.

ai k mink mink k lai cho

bằng 17 chắc chắn đúng.Mình làm rùi.

nhé

program giaithua;

var { đa số N sẽ < hoặc = 30 }

s:longint;n,i:byte;

begin

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

s:=1; { nếu s = 0 thì kết quả 100% = 0 }

for i:= 1 to n do

s:= s *i;

write(' ket qua la :',s:5:2);

readln;

end.

k đề đủ rồi 

-Huyết áp là áp lực máu cần thiết tác động lên thành động mạch nhằm đưa máu đến nuôi dưỡng các mô trong cơ thể. Huyết áp được tạo ra do lực co bóp của tim và sức cản của động mạch.
-huyết áp 120/80 mmHg là một dấu hiệu báo động bạn cần phải thay đổi lối sống lành mạnh cho tim mạch.
- khi ngủ mọi hoạt động của cơ thể ở mức thấp nhất, tim đập chậm lại do vậy huyết áp sẽ thấp hơn so với khi thức
- khi chạy tim phải đập nhanh để cung cấp máu đến các cơ bắp nên huyết áp sẽ tăng
- khi sợ hãi ađrenalin tiết ra nhiều làm co mạch máu , tim đập nhanh dẫn đến tăng huyết áp .
Chúc Bạn Học Tốt :D

93,6 tạ thóc,cauj có ra như thé hông