viết chương trình nhập vào từ bàn phím mảng một chiều dùng để lưu trữ điểm trung bình của các môn học hãy đưa ra màng hình như sau A nhập mảngB in mảng C tính điểm trung bình môn D nếu điểm trung bình >=5 thì thồn báo được lên lớp ngược lại thì thông báo thi...
Đọc tiếp
viết chương trình nhập vào từ bàn phím mảng một chiều dùng để lưu trữ điểm trung bình của các môn học hãy đưa ra màng hình như sau
A nhập mảng
B in mảng
C tính điểm trung bình môn
D nếu điểm trung bình >=5 thì thồn báo được lên lớp ngược lại thì thông báo thi lại
uses crt;
var a:array[1..14]of real;
i,n:integer;
t:real;
begin
clrscr;
write('Nhap so mon hoc='); readln(n);
for i:=1 to n do
begin
repeat
write('A[',i,']='); readln(a[i]);
until (0<=a[i]) and (a[i]<=10);
end;
for i:=1 to n do
write(a[i]:4:2,' ');
t:=0;
for i:=1 to n do
t:=t+a[i];
writeln('Diem trung binh mon la: ',t/n:4:2);
if t>=5 then writeln('Duoc len lop')
else writeln('Thi lai');
readln;
end.