Kiểu dữ liệu có cấu trúc

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

viết chương trình nhập điểm của 10 học sinh.Tính (theo kiểu biến mảng)

- tổng điểm của 10 học sinh

- Điểm tb của 10 hs trên

- Đếm số học sinh có điểm >5

- Có bao nhiêu HSG

Luân Trần
7 tháng 1 2020 lúc 21:32
https://i.imgur.com/q6zE2fX.png
Khách vãng lai đã xóa
Nguyễn Lê Phước Thịnh
7 tháng 1 2020 lúc 21:40

uses crt;
const n=10;
var diem:array[1..n]of real;
i,dem,dem1:integer;
t,tbc:real;
begin
clrscr;
for i:=1 to n do
begin
write('diem[',i,']='); readln(diem[i]);
end;
{-----------------------tinh-tong-diem-cua-10-hoc-sinh---------------------------------}
t:=0;
for i:=1 to n do
t:=t+diem[i];
writeln('tong diem cua 10 hoc sinh la: ',t:4:2);
{----------------------tinh-diem-tbinh-cua-10-hoc-sinh---------------------------------}
tbc:=t/n;
writeln('diem trung binh cua 10 hoc sinh la: ',tbc:4:2);
{---------------------dem-so-hoc-sinh-co-diem>5---------------------------------------}
dem:=0;
for i:=1 to n do
if diem[i]>5 then inc(dem);
writeln('so hoc sinh co diem lon hon 5 la: ',dem);
{---------------------dem-so-hoc-sinh-gioi--------------------------------------------}
dem1:=0;
for i:=1 to n do
if diem[i]>=8 then inc(dem1);
writeln('so hoc sinh gioi la: ',dem1);
readln;
end.

Khách vãng lai đã xóa

Các câu hỏi tương tự
Bin Nguyễn
Xem chi tiết
Ẩn Nguyen
Xem chi tiết
Nguyễn Kim Ngân
Xem chi tiết
Đức Minh
Xem chi tiết
Mai Hạ
Xem chi tiết
PEACH A
Xem chi tiết
Tien Nguyen
Xem chi tiết
Camthuy Nguyen
Xem chi tiết
Dương Mạnh Hoàng
Xem chi tiết