Bài 11: Kiểu mảng

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

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

 

Nguyễn Lê Phước Thịnh
8 tháng 3 2021 lúc 13:53

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.


Các câu hỏi tương tự
Bàn Chàn Khuân
Xem chi tiết
Bùi Thị Phương Nga
Xem chi tiết
Trần Văn Việt Hùng
Xem chi tiết
Anh Lê duy
Xem chi tiết
Nguyen Nhi
Xem chi tiết
Bùi Thế Vinh
Xem chi tiết
Nhân
Xem chi tiết
Đại Văn
Xem chi tiết
Minh Hoạt
Xem chi tiết