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.
b3
Program Xoa_mang;
uses crt;
var m:array[1..100] of integer;
n,i,k:byte;
Begin
Write('So phan tu cua day: ');readln(n);
for i:=1 to n do
Begin
Write('M[',i,']=');Readln(M[i]);
End;
Write('Nhap vi tri cua phan tu can xoa: ');Readln(k);
For i:=k to n do m[i]:=m[i+1];
For i:=1 to n do Write(m[i],', ');
Readln
End.
b4
Program TIM_NHO_NHAT;
uses crt;
var n,i,nhonhat:integer;
m: array[1..100] of real;
min:real;
begin
write('Nhap n: '); readln(n);
for i:=1 to n do
begin
write('M[',i,']='); readln(m[i]);
end;
min:=m[1];
nhonhat:=1;
for i:=2 to n do if m[i] < min then
begin
min:=m[i]; nhonhat:=i;
end;
writeln('phan tu nho nhat la phan tu thu',nhonhat);
readln
end.
quá đơn giản
bài 1:
uses crt;
var n,i,t:integer;
a:array[1..100]of integer;
begin
clrscr;
write('n='); readln(n);
for i:=1 to n do;
begin
write('a[',i,']='); readln(a[i]);
end;
{------------xuat-day--------------------}
for i:=1 to n do
write(a[i]:4);
{--------------xu-ly---------------------}
writeln;
t:=0;
for i:=1 to n do
if a[i] mod 2=1 then t:=t+a[i];
writeln('tong cac so le trong day la: ',t);
readln;
end.
bài 2:
uses crt;
var n,i,dem:integer;
a:array[1..100]of integer;
begin
clrscr;
write('nhap so hoc sinh:'); readln(n);
for i:=1 to n do
begin
write('nhap diem toan cua hoc sinh thu ',i,':'); readln(a[i]);
end;
{------------xuat-day--------------------}
writeln('bang diem mon toan cua lop hoc la: ');
for i:=1 to n do
write(a[i]:4);
{--------------xu-ly---------------------}
writeln;
dem:=0;
for i:=1 to n do
if a[i]>8 then inc(dem);
writeln('so hoc sinh co diem toan lon hon 8 trong lop la: ',dem);
readln;
end.
bài 3:
uses crt;
var n,i,k,tam:integer;
a:array[1..100]of integer;
begin
clrscr;
write('nhap n:'); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
{------------xuat-day--------------------}
for i:=1 to n do
write(a[i]:4);
{--------------xu-ly---------------------}
writeln;
repeat
write('nhap vi tri thu k: '); readln(k);
if (k<=0) or (k>n) then writeln('ban da nhap sai, yeu cau ban nhap lai');
until (k>0) and (k<=n);
writeln('day so sau khi da xoa so o vi tri thu ',k,' la: ');
a[k]:=tam;
for i:=1 to n do
if a[i]<>tam then write(a[i]:4);
readln;
end.
bài 4:
uses crt;
var n,i,vt,nn:integer;
a:array[1..100]of integer;
begin
clrscr;
write('nhap n:'); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
{------------xuat-day--------------------}
for i:=1 to n do
write(a[i]:4);
{--------------xu-ly---------------------}
vt:=1;
writeln;
nn:=a[1];
for i:=1 to n do
if nn>a[i] then
begin
nn:=a[i];
vt:=i;
end;
writeln('vi tri cua so nho nhat trong day la: ',vt);
readln;
end.
