Bài 8. Lặp với số lần chưa biết trước

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

Viết chương trình tính trung bình cộng n số thực nhập từ bàn phím

Nguyễn Lê Phước Thịnh
19 tháng 2 2020 lúc 20:26

uses crt;
var a:array[1..100]of real;
i,n:integer;
tbc,t:real;
begin
clrscr;
write('n='); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
{---------------------------xu-ly---------------------------}
t:=0;
for i:=1 to n do
t:=t+a[i];
tbc:=t/n;
writeln('trung binh cong cua ',n,' so thuc ban vua nhap la: ',tbc:4:2);
readln;
end.

Khách vãng lai đã xóa
Sara Trang
19 tháng 2 2020 lúc 21:14

Program Sara_TRang;

Uses crt;

Var n,s,i:integer;

M:array[1..100] of integer;

Begin

Clrscr;

Write('Nhap so phan tu n:'); Readln(n);

s:=0;

For i:=1 to n do

Begin

Write('M[',i,']='); Readln(M[i]);

S:=s+M[i];

End;

Writeln('Trung binh cong cua cac so la:', s/n:4:3);

Readln

End.

Khách vãng lai đã xóa
Nguyễn Chơn Nhân
19 tháng 2 2020 lúc 18:34

var n,i:longint;a:array[0..100000] of real;

begin

readln(n);

for i:=1 to n do

begin

read(a[i]);

a[0]:=a[0]+a[i];

end;

writeln(a[0]/n:0:3);

end.

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

Các câu hỏi tương tự
Huyen Dinh phuong
Xem chi tiết
Thu Anh
Xem chi tiết
dũng
Xem chi tiết
Phan Thị Phương Thy
Xem chi tiết
Nhật Duy Lê Võ
Xem chi tiết
Lê Nguyễn Thanh Quân
Xem chi tiết
Đào Tất Thắng
Xem chi tiết
trinhtrannamhoa
Xem chi tiết
Nguyễn Thị Ngọc Oanh
Xem chi tiết
An Vy
Xem chi tiết