Dòng lệnh nhập giá trị cho từng phần tử của mảng:.. ...[r]
(1)Bài tập làm thêm Phần Kiểu liệu mảng.
Bài tập đọc hiểu
program sapxep; var i,j,n,t:byte;
a:array[1 88] of integer; begin
write('Nhap so phan tu mang: '); readln(n);
for i:=1 to n begin
write('Phan tu ',i,': '); readln(a[i]);
end;
write('Mang nhap vao: '); for i:=1 to n
write(a[i],' '); for i:=1 to n-1 for j:=i+1 to n if a[i]<a[j] then begin
t:=a[i]; a[i]:=a[j]; a[j]:=t; end; writeln;
write('Mang sau duoc sap xep: '); for i:=1 to n
write(a[i],' '); readln;
end
Em liệt kê: a Khai báo biến mảng:
b Dòng lệnh nhập giá trị cho phần tử mảng:
c Dòng lệnh kiểm tra xem số có chia hết cho 6? d Dịng lệnh in kết hình
e Dòng lệnh xếp phần tử mảng:
Bài tập điền vào chổ trống
Bài 1: Tạo mảng chứa N số nguyên (N<400) Viết chương trình nhập in liệu trong mảng vừa tạo.
program cau1_mang;{nhap va in cac phan tu mang} var sn: ………[1 390] of integer;
i,n:integer; begin
write('Nhap so luong phan tu mang: '); readln(…….…);
(2)write('Nhap gia tri cho phan tu thu ',i,': '); readln(…… [i]);
end;
write('Gia tri cua mang: '); for i:=1 to … do
write(sn[i]); readln;
end.
Bài 2: Tạo mảng chứa N số nguyên (N<40) Viết chương trình đưa số lớn chỉ số nó.
program cau2_mang;{dua so lon nhat} var … :array[1 … ] of integer;
sln,i,n:integer; begin
write('Nhap so luong phan tu mang: '); readln(n);
for i:=1 to … do begin
write('Nhap gia tri cho phan tu thu ',i,': '); readln(A[i]);
end;
write('Gia tri cua mang: ');
for i:=1 to n do{in man hinh cac gia tri co mang} write(…………,' ');
sln:= …………;cs:=1; writeln;
for i:=1 to … do if sn[i] …… sln then begin
sln……… ; cs:=i;
end;
write('So lon nhat co day: '); write(sln,'o vi tri ', ……….);
readln; end.
Bài 3: Tạo mảng chứa N số nguyên (N<400) Viết chương trình tính tổng số chia hết cho 5.
program cau3_mang;{tong cac so chia het cho 5} var B: ……… [1 390] of ………;
s,i,n:integer; begin
write('Nhap so luong phan tu mang: '); ……….;
(3)write('Nhap gia tri cho phan tu thu ',i,': '); readln(……….);
end;
write('Gia tri cua mang: '); for i:=1 to n do
write(………[i],' '); s:= … ;
writeln;
for i:=1 to n do
if ………. then s:=s+B[i]; write('Tong cac so chia het cho 5: ');
write(s); readln; end.
Bài 4: Tạo mảng chứa N số nguyên (N<50) Viết chương trình tính tổng số ngun dương.
program cau4_mang;{Tong cac so nguyen duong} var ……… :……… […………] of ………; ………:integer;
begin
write('Nhap so luong phan tu mang: '); readln(n);
for i:=1 to n do begin
write('Nhap gia tri cho phan tu thu ',i,': '); ……….
end;
write('Gia tri cua mang: '); for i:=1 to n do
……… s:=0;
writeln;
for i:=1 to n do
if …………>0 then ………… ; write('Tong cac so >0: ');
write(s); readln; end.
Bài 5: Tạo mảng chứa N số nguyên (N<100) Viết chương trình đếm số >0. program cau5_mang;{Dem cac so nguyen duong}
var ……… of integer; ………
begin
(4)for i:=1 to n do begin
write('Nhap gia tri cho phan tu thu ',i,': '); readln(sn[i]);
end;
write('Gia tri cua mang: '); ………. write(………,' ');
dem:=0; writeln;
for i:=1 to n do
if ……… then dem:=dem+1; write('So luong cac so >0: '); write(dem);
readln; end.
Bài 6: Tạo mảng chứa N số nguyên (N<400) Viết chương trình đưa hình giá trị số âm.
program cau6_mang;{Cac so nguyen duong} var sn:array[1 390] of integer;
i,n:integer; begin
write('Nhap so luong phan tu mang: '); readln(n);
……… ……… ……… ……… ……… write('Gia tri cua mang: ');
for i:=1 to n write(sn[i],' '); writeln;
write('Cac so duong co day: '); for i:=1 to n do
……… readln;