+ý : a,

program bai1;

uses crt;

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

i,n: integer;

s: real;

begin

clrscr;

write('nhap phan tu mang :');

readln(n);

for i:= 1 to n do

begin

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

end;

s:=0;

for i:= 1 to n do

if a[i] mod 2 = 0 then

s:=s+a[i];

writeln('tong=' ,s:3:2);

readln

end.

+ý : b,

program bai1;

uses crt;

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

i,n: integer;

s: real;

begin

clrscr;

write('nhap phan tu mang :');

readln(n);

for i:= 1 to n do

begin

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

end;

s:=0;

for i:= 1 to n do

if a[i] mod 2 =1 then

s:=s+a[i];

writeln('tong=' ,s:3:2);

readln

end.

+ ý c,

program bai1;

uses crt;

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

i,n,Zinteger;

begin

clrscr;

write('nhap phan tu mang :');

readln(n);

for i:= 1 to n do

begin

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

end;

for i:= 1 to n do

for j:= i+1 to n do

if a[i] > a[j] then

Z:=a[i];

a[i]:=a[j];

a[j]:=Z;

writeln(a[i]);

readln

end.

Đây mới đúng :))

program bai1;

uses crt;

var i,n : integer;

s: real;

begin

clrscr;

s:=0;

for i:= 1 to 99 do

s:=s+i;

writeln('tong =' ,s);

readln

end.

program bai1;

uses crt;

var i,n : integer;

s: real;

begin

clrscr;

s:=0;

for i:= 1 to n do

s:=s+i;

writeln('tong =' ,s);

readln

end.

cái thứ 1 bạn nhé :)

102345

Viết đoạn văn (5 -6 câu) Trong giờ Đạo đức, thầy giáodân phố nơi em ở và công việc bác làm. 

Gợi ý:

- Bác tổ trưởng tổ dân phố tên là gì?
- Nêu một số đặc điểm về hình dáng, tính tình của bác.
- Bác đã làm những công việc gì? Những công việc đó đem lại lợi ích và niềm vui gì cho mọi người?

- Tình cảm của em và mọi người nơi em ở với bác như thế nào?

Điểm cực viễn của mắt lão thì 

A. Gần hơn điểm cực viễn của mắt thường.

B. Bằng điểm cực viễn của mắt cận.

C. Xa hơn điểm cực viễn của mắt thường.

D. Bằng điểm cực viễn của mắt thường.

Program Hinh_Tron;

uses crt;

var R,cv,s: real;

begin

clrscr;

write('nhap ban kinh R=');

readln(R);

cv:= R*2*3.14;

s:= R*R*3.14;

if R=0 then writeln('R la so am ') else

writeln('chu vi hinh tron la :' ,cv);

writeln('dien tich hinh tron la: ',s);

readln

end.

Program Tinh_Tong;

uses crt;

var s,n,i: integer;

begin

clrscr;

write('nhap so n =');

readln

s:= 0;

For i:= 1 to n do

if i mod 2 <>0 then s:= s+i;

writeln('tong la : ' , s);

readln

end.