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;