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
Thái Trực

Viết chương trình nhập điểm 10 bạn học sinh viết chương trình in ra các bạn học sinh giỏi, Tính điểm trung bình của10 bạn

Bùi Anh Tuấn
25 tháng 4 2021 lúc 19:52

Nguyễn Lê Phước Thịnh
25 tháng 4 2021 lúc 22:02

uses crt;

var a:array[1..10]of integer;

i,n,tb:integer;

begin

clrscr;

for i:=1 to 10 do 

  begin

write('A[',i,']='); readln(a[i]);

end;

for i:=1 to 10 do 

  if a[i]>=8 then write(a[i]:4);

tb:=0;

for i:=1 to 10 do 

  tb:=tb+a[i];

writeln;

writeln('Diem trung binh cua 10 ban la: ',tb:4:2);

readln;

end.
 


Các câu hỏi tương tự
Hương Đinh
Xem chi tiết
Hương Đinh
Xem chi tiết
Nguyễn Huỳnh Mai Trân
Xem chi tiết
Nguyến Ngọc Nguyên
Xem chi tiết
Giúp mik vs
Xem chi tiết
Tiểu cường
Xem chi tiết
Mối tình chong gai
Xem chi tiết
Trần Khải
Xem chi tiết
Quỳnh Như
Xem chi tiết