Sử dụng biến mảng tính điểm trung bình cộng của một môn bất kỳ(mong mng giúp e ạ cần gấp,ai đúng em vote nha)
2 câu trả lời
Program baitap;
Uses crt;
Var T:array[1..50] of real;
S:real;
i,n:integer;
Begin
Clrscr;
Write('So cac so diem can tinh:'); Readln(n);
S:=0;
For i:=1 to n do
Begin
Write('Diem thu ',i,':');
Readln(T[i]);
S:=S+T[i];
End;
Writeln('Diem trung binh:',S/n:2:1);
Readln
End.
uses crt;
var a:array[1..1000]of real;n,i,dem:longint;tbc:real;
begin
clrscr;
write('so so diem muon tinh trung binh la:');readln(n);
for i:=1 to n do
begin
write('nhap diem muon tinh trung binh:');readln(a[i]);
inc(dem);
tbc:=tbc+a[i];
end;
write('trung binh cong cac diem la:',tbc/dem:5:3);
readln;
end.
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết giúp các em luyện tập và củng cố kiến thức hiệu quả
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 5 Địa 8 có lời giải chi tiết
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 4 Địa 8 có lời giải chi tiết
