Bài 7. Câu lênh lặp

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Nhi Lê

Viết chương trình và nhập 5 số nguyên bất kỳ.

a). Tính và in ra trung bình cộng của 5 số vừa nhập.

b). In ra các phần tử lớn hơn giá trị trung bình vừa tính.

Nguyễn Lê Phước Thịnh
13 tháng 3 2020 lúc 15:32

Đề sai rồi bạn

Phải là nhập 5 số thực bất kỳ mới đúng

Khách vãng lai đã xóa
Nguyễn Lê Phước Thịnh
13 tháng 3 2020 lúc 15:34

uses crt;
var a:array[1..5]of real;
t,tbc:real;
i:integer;
begin
clrscr;
for i:=1 to 5 do
begin
write('so thu ',i,'='); readln(a[i]);
end;
{----------------------------------cau-a---------------------------}
t:=0;
for i:=1 to 5 do
t:=t+a[i];
tbc:=t/5;
writeln('trung binh cong cua 5 so vua nhap la: ',tbc:4:2);
{----------------------------------cau-b---------------------------}
writeln('cac phan tu lon hon trung binh cong cua day so la: ');
for i:=1 to 5 do
if a[i]>tbc then write(a[i]:4:2,' ');
readln;
end.

Khách vãng lai đã xóa

Các câu hỏi tương tự
Mai thị tố uyên
Xem chi tiết
Nguyễn Hiếu
Xem chi tiết
quang
Xem chi tiết
Lê Đăng Khôi
Xem chi tiết
Gia Kỳ
Xem chi tiết
Ngọc Nguyễn
Xem chi tiết
Nguyễn Khánh Linh
Xem chi tiết
Maiiii
Xem chi tiết
Kisaragi Saya
Xem chi tiết