begin
write('Nhap so phan tu cua mang, n= '); read(n);
for i:=1 to n do
begin
write('Nhap gia tri ',i,'cua mang, a[',i,']= ');
readln(a[i]) end; end.
Bµi 6. Đúng.
Bµi 7. a) Nếu không sửdụng biến mảng, chương trình có thể dài như sau:
uses crt;
var So_1, So_2, So_3, So_4, So_5, Max: integer;
begin
clrscr;
write('Nhap so thu nhat: '); readln(So_1); write('Nhap so thu hai: '); readln(So_2); write('Nhap so thu ba: '); readln(So_3); write('Nhap so thu tu: '); readln(So_4); write('Nhap so thu nam: '); readln(So_5);
Max:=So_1;
If Max<So_2 then Max:=So_2;
If Max<So_3 then Max:=So_3;
If Max<So_4 then Max:=So_4;
If Max<So_5 then Max:=So_5; writeln('So lon nhat: ',Max);
end.
b) Nếu sửdụng biến mảng, chương trình chỉ ngắn gọn như sau:
uses crt;
var i, Max: integer; A: array[1..5] of integer;
begin
clrscr;
for i:=1 to 5 do
begin write('Nhap so thu ',i,':'); readln(A[i]) end; Max:=a[1];
for i:=2 to 5 doIf Max<a[i] then Max:=a[i]; writeln('So lon nhat: ',Max);
end.
Lưu ý. Xem cách viết chương trình ngắn gọn hơn và không sử dụng biến mảng trong bài tập 9, bài 7. Tuy nhiên, cách viết đó sẽ không cho kết quả mong muốn nếu sau khi nhập giá trị của các biến còn cần thực hiện các thao tác dữ liệu khác với các giá trị đó.
Bµi 8. Viết chương trình sử dụng biến mảng để tính giá trị trung bình của tổng N số nguyên được nhập vào từ bàn phím. uses crt; var N, i: integer; TB: real; A: array[1..100] of real; begin clrscr;
write('Nhap so phan tu cua mang, n= '); read(n);
for i:=1 to n do
begin
write('Nhap gia tri ',i,'cua mang, a[',i,']= '); readln(a[i])
end; TB:=0;
for i:=1 to n do TB:=TB+a[i]; TB:=TB/n;
Bµi 9. Chương trình nhập n số nguyên từ bàn phím và tính tổng các số dương: uses crt; var n,k,S: integer; X: array[1..1000] of integer; begin clrscr;
write('Nhap so tu nhien n: '); readln(n);
for k:=1 to n do
begin write('Nhap X[',k,']='); readln(X[k]) end; S:=0;
for k:=1 to n do
if X[k]>0 then S:=S+X[k]; writeln('Tong cac duong S=',S); readln;
end.
Bµi 10. Nội dung bài 2 của bài thực hành 6 là viết chương trình nhận biết một số tự nhiên có phải là số nguyên tố hay không. Nội dung của bài tập 9, bài 8, là viết chương trình tính tổng các ước số thực sự của một số nguyên, nhưng chưa liệt kê được các ước số đó. Để có thể liệt kê, chương trình cần phải ghi lại chúng. ý tưởng chính là sử dụng một biến mảng phục vụ cho điều này. Chương trình tương tự như trong bài tập 9, Bài 8:
uses crt;
var n,i,k,S: integer;