H24

Viết chương trình nhập một dãy gồm n số thực từ bàn phím. Tính tổng và trung bình cộng các số đó. In kết quả tính được ra màn hình.

Mọi người giúp em bài này với ạ!

NT
10 tháng 5 2021 lúc 17:52

uses crt;

var a:array[1..100]of real;

i,n:integer;

t:real;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do

begin

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

end;

t:=0;

for i:=1 to n do 

t:=t+a[i];

writeln('Tong cua day la: ',t:4:2);

writeln('Trung binh cong cua day la: ',t/n:4:2);

readln;

end.

Bình luận (1)

Các câu hỏi tương tự
H24
Xem chi tiết
HK
Xem chi tiết
BH
Xem chi tiết
HP
Xem chi tiết
YN
Xem chi tiết
HT
Xem chi tiết
LN
Xem chi tiết
PN
Xem chi tiết
NH
Xem chi tiết