Em hãy cho biết ý nghĩa và chức năng của các biến: i, c, a[i]...

2. Các em hãy cùng thảo luận về cách giải quyết bài toán đặt ra ở hoạt động khởi động và tìm hiểu chương trình sau đây, soạn thảo và chạy thử thông qua Free Pascal, sau đó trả lời các câu hỏi bên dưới:

a, Em hãy cho biết ý nghĩa và chức năng của các biến: i, c, a[i]
b, Em hãy sửa chương trình trên để hiển thị số công ty có lợi nhuận thấp hơn mức trung bình và lợi nhuận của các công ty đó.

Bài làm:

a, biến i là chỉ số của mảng a

biến c là biến đếm dùng để lưu trữ số công ty có mức lợi nhuân cao hơn mức trung bình.

Mảng a[i] dùng để lưu trữ lợi nhuận của mỗi công ty.

b, Bắt đầu sửa từ bước 2

c := 0;

writeln ('Danh sach cong ti co loi nhuan thap hon muc trung binh');

for i := 1 to 5 do

if a[i] < loi_nhuan_trung_binh then

begin

writeln ('Cong ti thu ', i,' thu nhap', a[i]:10:2 );

c := c + 1;

end;

writeln ('Co tong cong ', c, ' cong ti co muc loi nhuan thap hon muc trung binh');

readln;