Baì tập mảng giúp mình nha

[hangnt94]

BT1:nhập vào điểm và hệ số các môn học trong học kỳ của 1 sinh viên
1. in ra màn hình điểm trung bình đó
2.nếu điểm trung bình đạt loại khá trở lên thì đưa ra thông báo " chuc mung ban" ngược lại thông báo " ban hay co gang"
3. phân loại học tập đó
BT2:
Nhập vào n số thực
1,đếm các số chẵn trong n số đó
2. in ra màn hình số lớn nhất trong n số đó
3. đếm xem có bao nhiêu số bàng số lớn nhất

[nguyenvannam1510]

BT1:nhập vào điểm và hệ số các môn học trong học kỳ của 1 sinh viên
1. in ra màn hình điểm trung bình đó
2.nếu điểm trung bình đạt loại khá trở lên thì đưa ra thông báo " chuc mung ban" ngược lại thông báo " ban hay co gang"
3. phân loại học tập đó
BT2:
Nhập vào n số thực
1,đếm các số chẵn trong n số đó
2. in ra màn hình số lớn nhất trong n số đó
3. đếm xem có bao nhiêu số bàng số lớn nhất

Bạn làm thế này thử xem nhé. Mình viết sơ sơ thôi, bạn hoàn chỉnh lại nhé


BT1:
tong := 0;
tong_heso := 0;
for i:=1 to n do
begin
tong := tong + diem[i]*heso[i];
tong_heso := tong_heso + heso[i];
end;
tb = tong/tong_heso;
writeln(' Diem trung binh: ', tb)
if tb>6.5 then writeln()
else write();
...


BT2:
max:=0;
so_chan:=0
sl := 0
for i:=1 to n do
begin
if a[i] mod 2 = 0 then so_chan := so_chan +1
if a[i] > max then
begin
max := a[i];
sl := 0;
end;
if a[i] = max then sl := sl +1
end;

writeln(' So luong so chan: ', so_chan)
writeln(' So lon nhat: ', max)
writeln(' So luong so bằng số lớn nhất: ', sl)

[hao0091998]

mình tự hỏi số thực thì làm sao mà có tính chẵn lẻ?????

[hao0091998]

mà trong pascal khai báo real không dùng hàm chia hết với chia có dư được đâu