Lập trình đơn giản

Mai Anh Nguyễn

Câu 1: Viết chương trình nhập vào 1 mảng các số nguyên in ra màn hình dãy số vừa nhập, và in giá trị tbc của dãy số đó

Câu 2: Giả sử biến A có 5 phần tử: 1,8,10,20,3 khi thực hiện câu lệnh sau:
tb:=0;

for i:=1 to 5 do

tb:= tb+ A[i];

cho biết giá trị của tb sau vòng lặp là gì?

CẦN GẤP LÉM ^^

híp
25 tháng 4 2019 lúc 18:25

1, var a:array[1..32000] of integer;

i,n,tong:integer;

tbc:real;

begin

write('nhap do dai cua day so:'); readln(n);

for i:=1 to n do

begin

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

end;

tong:=0;

for i:=1 to n do tong:=tong+a[i];

tbc:=tong/n;

write('trung binh cong la:',tbc);

readln

end.

2, tb=42

Bình luận (0)

Các câu hỏi tương tự
Thảo Nguyên 36-88
Xem chi tiết
Đào Duy Quỳnh
Xem chi tiết
Khang Đinh Hoàng
Xem chi tiết
hoho209
Xem chi tiết
Ma Phan Đức
Xem chi tiết
Nguyễn Linh
Xem chi tiết
duyy
Xem chi tiết
Tùng Bùi
Xem chi tiết
Joyceeeee
Xem chi tiết
Trần trung hiếu
Xem chi tiết