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ộ...
Đọc tiếp
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
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.