Bài 11: Kiểu mảng

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

Viết chương trình nhập vào cân nặng của N hs trong một lớp N được nhập từ bàn phím . Tính cân nangwh trung bình của lớp , xuất kq ra màn hình. em cảm ơn ạ

 

Nguyễn Lê Phước Thịnh
12 tháng 12 2020 lúc 19:55

uses crt;

var a:array[1..100]of real;

n,i:integer;

kq:real;

begin

clrscr;

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

for i:=1 to n do 

  begin

write('Nhap can nang cua ban thu ',i,'='); readln(a[i]);

end;

kq:=0;

for i:=1 to n do 

  kq:=kq+a[i];

writeln('Can nang trung binh cua lop la: ',kq/n:4:2);

readln;

end.


Các câu hỏi tương tự
Yến Nhi
Xem chi tiết
Ken Kaneki
Xem chi tiết
Võ Thu Hằng
Xem chi tiết
Minh Quyết
Xem chi tiết
Nguyễn tiên
Xem chi tiết
Bùi Thị Phương Nga
Xem chi tiết
Bàn Chàn Khuân
Xem chi tiết
Ngoc Huyen
Xem chi tiết
Nguyễn Thị Tươi
Xem chi tiết