viết chương trình tính điểm trung bình môn tin kt 1 tiết của 30hs lớp 8a
2 câu trả lời
program kt;
uses crt;
var A:array[1..30] of real;
i:integer;
TB:real;
begin clrscr;
for i:=1 to 30 do
begin
writeln('Nhap diem cua hs thu ',i,':'); readln(A[i]);
end;
TB:=0;
for i:=1 to 30 do
TB:=(TB+A[i])/30;
write('Diem TB cua 30 hs lop 8a la: ',TB);
readln;
end.
Học tốt!
program tb;
uses crt;
var A:array[1..30] of real;
i:integer;
TB:real;
begin clrscr;
for i:=1 to 30 do
begin
writeln('Nhap diem cua hs thu ',i,':');
readln(A[i]);
end;
TB:=0;
for i:=1 to 30 do
TB:=TB+A[i]/30;
write('Diem TB cua 30 hs lop 8a la: ',TB);
readln;
end.
Câu hỏi trong lớp
Xem thêm
- Đề 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
