Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài

Những câu hỏi liên quan
Anh Nguyễn
Xem chi tiết
Nguyễn Cảnh Hùng
Xem chi tiết
Đỗ Ngọc Trinh
27 tháng 10 2019 lúc 16:30

Lọc dữ liệu đúng yêu cấu.

ntrang
Xem chi tiết
Nguyễn Cảnh Hùng
Xem chi tiết
Đỗ Ngọc Trinh
4 tháng 5 2019 lúc 8:14

Lọc dữ liệu đúng yêu cấu.

Nguyễn Cảnh Hùng
Xem chi tiết
Đỗ Ngọc Trinh
9 tháng 1 2019 lúc 13:42

Lọc dữ liệu đúng yêu cấu.

29 7/11 Tố Như
Xem chi tiết
Rul Tv
Xem chi tiết
nguyễn hồng ngọc
Xem chi tiết
Ý Nhi
Xem chi tiết
Minh Lệ
9 tháng 6 2020 lúc 18:10

Program HOC24;

Var a,b: array[1..32000] of real;

i,n: integer;

max,d1,d: real;

begin

write('Nhap so hoc sinh : '); readln(n);

for i:=1 to n do

begin

write('Nhap diem toan ban thu ',i,' : '); readln(a[i]);

write('Nhap diem van ban thu ',i,' : '); readln(b[i]);

end;

max:=0;

for i:=1 to n do

begin

d:=a[i]+b[i];

d1:=d/2;

if d1>max then max:=d1;

end;

write('Diem trung binh cao nhat la : ',max);

readln

end.