B1: Viết một chương trình nhập vào n số nguyên , in các số vừa lập và in ra tổng các số lẻ trông các só vừa lập .
B2 : Viết chương trình nhập vào điểm toán của một lớp học và đếm xem có bao nhiêu bạn có điểm toán lớn hơn 8 . In ra bảng điểm của lớp học và số học sinh có điểm toán > 8
B3 : Viết chương trình nhập vào n số , xóa số thứ k trong n số vừa lập, in ra các số còn lại .
B4 Viết chương trình cho phéo nhập n số và cho biết số nhỏ nhất trong các số vừa lập là số thứ mấy.
Bài 1:
Program hotrotinhoc;
var i,n: integer;
t: longint;
begin
write('n='); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
for i:=1 to n do
begin
write(a[i],' ');
if a[i] mod 2=1 then t:=t+a[i];
end;
writeln;
write(t);
readln
end.
Bài 2:
Program hotrotinhoc;
var i,n,t: integer;
begin
write('n='); readln(n);
for i:=1 to n do
begin
write('Nhap diem Toan cua ban thu ',i,': '); readln(a[i]);
end;
for i:=1 to n do
begin
writeln('Diem toan cua ban thu ',i,' la :',a[i]);
if a[i] >=8 then t:=t+1;
end;
write('So hoc sinh co diem toan la 8 tro len la :', t);
readln
end.
Bài 3:
Program hotrotinhoc;
var i,n,k: integer;
a:array[1..32000] of string;
begin
write('Nhap k='); readln(k);
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
a[k]:='NO';
for i:=1 to n do
if a[i]<>'NO' then write(a[i],' ');
readln
end.
Bài 4:
Program hotrotinhoc;
var min,i,n,vt: integer;
a:array[1..32000] of integer;
begin
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
min:=32000;
for i:=1 to n do
if a[i]<min then
begin
min:=a[i];
vt:=i;
end;
write('So nho nhat trong day la so thu ',vt);
readln
end.