Question

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

 

Answer 1

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.