Hãy viết chương trình tính điểm trung bình của bạn học sinh, với số môn và điểm của môn là tùy thích nhập vào từ bàn phím. Sử dụng câu lệnh For...to...do
2 câu trả lời
program oken;
uses crt;
var a: array [1..100] of real;
mon:byte;
tb:real;
begin
clrscr;
write('nhap so mon: '); readln(mon);
for i:=1 to n do
begin
write('nhap diem mon thu ',i,': '); readln(a[i]);
tb:=tb+a[i];
end;
writeln('diem TB cua ',n,': ',tb/n:0:3);
readln;
end.
Program BTH;
uses crt;
var a: array [1..10000] of real;
n,i:longint;
tb:real;
begin
clrscr;
write('Nhap so mon: ');readln(n);
for i:=1 to n do
Begin
write('Nhap diem mon thu ',i,': '); readln(a[i]);
tb:=tb+a[i];
end;
writeln('Diem TB cua ',n,' mon la: ',tb/n:4: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
