Bài 9. Làm việc với dãy số

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
nguyễn võ yến vy

viết chương trình nhập vào điểm của 3 môn toán văn anh cho mỗi hs trong lớp(lớp có 42 hs).In ra màn hình điểm trung bình cộng của 3 môn đó

Minh Lệ
5 tháng 4 2019 lúc 14:22

Lời giải :

program hotrontinhoc ;

var Toan : array[1..42] of real ;

Van : array[1..42] of real;

Anh : array[1..42] of real ;

i : integer ;

DTB : real ;

begin

begin

writeln('Nhap diem mon Toan cua cac ban');

for i:=1 to 42 do

begin

write('Diem cua ban thu',i,':'); readln(Toan[i]);

end;

end;

begin

writeln('Nhap diem mon Van cua cac ban');

for i:=1 to 42 do

begin

write('Diem cua ban thu ',i,':'); readln(Van[i]);

end;

end;

begin

writeln('Nhap diem mon Anh cua cac ban');

for i:= 1 to 42 do

begin

write('Nhap diem cua ban thu ',i,':'); readln(Anh[i]);

end;

end;

DTB:=0;

for i:= 1 to 42 do

DTB:= DTB+(Toan[i]/i)+(Van[i]/i)+(Anh[i]/i);

write('Diem trung binh cong cua 3 mon la:',DTB:2:4);

readln

end.

✿✿❑ĐạT̐®ŋɢย❐✿✿
5 tháng 4 2019 lúc 17:58

program hotrontinhoc ;

var Toan : array[1..42] of real ;

Van : array[1..42] of real;

Anh : array[1..42] of real ;

i : integer ;

DTB : real ;

begin

begin

writeln('Nhap diem mon Toan cua cac ban');

for i:=1 to 42 do

begin

write('Diem cua ban thu',i,':'); readln(Toan[i]);

end;

end;

begin

writeln('Nhap diem mon Van cua cac ban');

for i:=1 to 42 do

begin

write('Diem cua ban thu ',i,':'); readln(Van[i]);

end;

end;

begin

writeln('Nhap diem mon Anh cua cac ban');

for i:= 1 to 42 do

begin

write('Nhap diem cua ban thu ',i,':'); readln(Anh[i]);

end;

end;

DTB:=0;

for i:= 1 to 42 do

DTB:= DTB+(Toan[i]/i)+(Van[i]/i)+(Anh[i]/i);

write('Diem trung binh cong cua 3 mon la:',DTB:2:4);

readln

end.


Các câu hỏi tương tự
Tiểu cường
Xem chi tiết
Nguyễn Huỳnh Mai Trân
Xem chi tiết
Nguyễn Quỳnh Anh 8A
Xem chi tiết
Giúp mik vs
Xem chi tiết
Hương Đinh
Xem chi tiết
Hương Đinh
Xem chi tiết
hoa ngọc
Xem chi tiết
Nguyến Ngọc Nguyên
Xem chi tiết
Hiền Nguyễn
Xem chi tiết