Trong chương trình trên, để tiết kiệm thời gian nhập dữ liệu nên số công ty được đặt là 5....
Có 3 chỗ cần phải sửa
- Chỗ đầu tiên: phần khai báo a: array [1..5] of real;
- Chỗ thứ 2: vòng lặp for để nhập dữ liệu: for i := 1 to 5 do
- Chỗ thứ 3: tính lợi nhuận trung bình loi_nhuan_trung_binh := tong_loi_nhuan/5;
- Chỗ thứ 4: vòng lặp for để duyệt danh sách đếm số công ty: for i := 1 to 5 do
Sửa lại chương trình như sau:
Chỗ đầu tiên:
Uses crt;
Const n = 50;
var a: array [1..n] of real;
...
Chỗ thứ 2: for i := 1 to n do
Chỗ thứ 3: loi_nhuan_trung_binh := tong_loi_nhuan/n;
Chỗ thứ 4: for i := 1 to n do