Bài 9: Trình bày dữ liệu bằng biểu đồ

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Cầm Ma

Viết chương trình Pascal sử dụng biến mảng để nhập từ bàn phím 2 loại điểm Toán. tin học. Của các bạn trong lớp số các bạn trong lớp được nhập vào từ bàn phím Tìm tính điểm trung bình của mỗi bạn theo công thức điểm trung Bình bằng điểm Toán cộng điểm tin chia 2 sau đó in ra màn hình mình điểm Trung bình cao nhất và điểm trung bình thấp nhất

Viết chương trình và giải thích hộ mình

Nguyễn Lê Phước Thịnh
14 tháng 6 2020 lúc 15:21

uses crt;
var a,b,c:array[1..100]of real;
n,i,dem,j:integer;
tb,max,min:real;
begin
clrscr;
write('Nhap so hoc sinh:'); readln(n);
for i:=1 to n do
begin
repeat
write('Nhap diem Toan,Tin cua ban thu ',i,'='); readln(a[i],b[i]);
until (0<a[i]) and (a[i]<=10) and (0<b[i]) and (b[i]<=10);
end;
dem:=0;
for i:=1 to n do
begin
tb:=(a[i]+b[i])/2;
inc(dem);
c[dem]:=tb;
end;
max:=0;
min:=10;
for i:=1 to dem do
begin
if max<c[i] then max:=c[i];
if min>c[i] then min:=c[i];
end;
writeln('Trung binh cao nhat la: ',max:4:2);
writeln('Trung binh nho nhat la: ',min:4:2);
readln;
end.


Các câu hỏi tương tự
võ thị thanh tâm
Xem chi tiết
Diệp Giấu Nghề
Xem chi tiết
Trần Mai
Xem chi tiết
Vi Hằng
Xem chi tiết
Phạm Thị Bích Nga
Xem chi tiết
Kii
Xem chi tiết
Nguyễn Phúc Nguyên
Xem chi tiết
thanh duong
Xem chi tiết
Rubby TV
Xem chi tiết