BÀI 9. LÀM VIỆC VỚI DÃY SỐCÂU HỎI VÀ BÀI TẬP

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:

var i, Max: integer;

A: array[1..5] of integer;

for i:=1 to 5 do

begin write('Nhap so thu ',i,':'); readln(A[i]) end;

Max:=a[1];

for i:=2 to 5 do If Max<a[i] then Max:=a[i];

Lu ý. Xem cách viết chơng trình ngắn gọn hơn và không sử dụng biếnmả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ácthao tác dữ liệu khác.