Viết chương trình tính điểm TB môn Toán của 40 bạn học sinh trong lớp
2 câu trả lời
Var i,S: integer;
a:array[1..100] of byte;
Begin
For i:=1 to 40 do
Read(a[i]);
For i:= 1 to 40 do
S:= S+i;
Writeln(S/40);
End.
Program baitap;
Uses crt;
Var A:array[1..40] of integer;
i,T:integer;
Begin
Clrscr;
T:=0;
For i:=1 to 40 do
Begin
Write('Nhap diem toan cua ban thu ',i,':');
Readln(A[i]);
T:=T+A[i];
End;
Writeln('Diem trung binh:',T/40:2:2);
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
