viết chương trình sử dụng biến mảng để tính giá trị trung bình của n số nguyên được nhập từ bàn phím và in ra dãy số nguyên đó

Thanhson97

2 năm trước

Loga Sinh Học lớp 12

0 lượt thích 50 xem

1 trả lời

Thích Trả lời

tnh2722k3

program trungbinh_in;

uses crt;

var A:array[1..1000] of integer;

n,i,t:integer;

begin

clrscr;

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

t:=0;

for i:=1 to n do

begin

write('Nhap so thu ',i,': '); readln(A[i]);

t:=t+A[i];

end;

writeln('Trung binh la: ',t/n:0:2);

write('Day so la: ');

for i:=1 to n do write(A[i],' ');

readln;

end.

Vote (0) Phản hồi (0) 2 năm trước

emailchinhxaccuatoi

uses crt;
var a:array[1..1000000] of longint;
n,i,s:longint;
begin
clrscr;
write('Nhap so luong phan tu: '); readln(n);
for i:=1 to n do
begin
write('Nhap so thu ',i,': '); readln(a[i]);
inc(s,a[i]);
end;
writeln('Trung binh cong day vua nhap: ',s/n:0:2);
write('Day so nguyen vua nhap: ');
for i:=1 to n do write(a[i],' ');
readln;
end.

Vote (0) Phản hồi (0) 2 năm trước

Các câu hỏi liên quan

Find the word which has a different sound in the part underlined. 1. A. allergy B. calorie C. coordinate D. triathlon 2. A. compound B. concentrate C. monopoly D. melody 3. A. essential B. attention C. vegetarian D. depression 4. A. sick B. swimming C. itchy D. riding 5. A. really B. healthy C. regularly D. identify 13. A. bottle B. purpose C. collect D. second 14. A. heard B. pearl C. heart D. earth 15. A. sofa B. away C. banana D. occasion

Câu15: Oxi hóa hết 6,2 g hỗn hợp 2 ancol đơn chức cùng dãy đồng đẳng bằng CuO t0, thu được 9,6 g kim loại và hỗn hợp 2 andehit. Toàn bộ lượng andehit này phản ứng với AgNO3 trong NH3 thu được 54g kim loại ( biết phản ứng hoàn toàn ). Tính khối lượng 2 ancol: A. 3 và 3,2B. 4,6 và 1,6C. 3,45 và 2,75D. 3,4 và 2,8

giải nhanh lên nhé mình sẽ thưởng

Cho tam giác ABC đồng dạng với tam giác MNP theo tỉ số đồng dạng k=3 . Tỉ số chu vi của tam giác ABC và tam giác MNP là

Lực lượng chủ yếu tham gia của phong trào nông dân Tây Sơn là gì? (1 Point) địa chủ tư sản các tầng lớp nhân dân lao động các văn thân, sĩ phu

Viết lại câu : Road users should obey traffic rules strictly =) Traffic rules ........... Bé careful or you 'll hurt yourself =) If you are ........ Nhanh có 2 câu thôi

Giúp mik nhé! Chỉ cần đáp án thui nhé

Vẽ mầm NL: Các bạn lớn hết rồi. Có ý thức tí đi ạ. Nhắm cày không lại thì đừng tham gia cuộc chơi nếu đã tham gia vui lòng xanh chín đừng chơi kiểu bẩn tính cử nick phụ vào đi phá cho khóa acc làm trừ điểm nhóm. Tôi biết acc chính của bạn rồi đấy thưa bạn DUC347 ạ. Mở khóa acc đi rồi bạn tự hiểu !!

Giúp mình với mình đang cần gấp

Cho x,y,a,b là các số thực thỏa mãn `x^4/a + y^4/b= (x^2+y^2)/(a+b)` và `x^+y^2=1` Chứng minh: `x^2006/a^1003 + y^2006/b^1003 = 2/(a+b)^1003`

Loga.vn - Cộng Đồng Luyện Thi Trực Tuyến