Bài 8: Soạn thảo, dịch, thực hiện và hiệu chỉnh chương trình

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
bùi công tuấn

tính trung bình cộng các phân tử của mảng chia hết cho 5.

Trương Quang Dũng
9 tháng 1 2018 lúc 21:25

program bai1;

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

n,k,s,i:longint;

tbc:real;

begin

repeat

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

until n>0;

for i:=1 to n do

begin

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

end;

k:=0;s:=0;

for i:=1 to n do

if (a[i] mod 5=0) then

begin

s:=s+a[i];

k:=k+1;

end;

tbc:=s/k;

writeln('Trung binh cong la ',tbc)l

readln

end.


Các câu hỏi tương tự
bùi công tuấn
Xem chi tiết
Ninh Văn Linh
Xem chi tiết
Dương Mịch Lý
Xem chi tiết
Trần Duy Thịnh
Xem chi tiết
Trần Thị Kiều linh
Xem chi tiết
Ngoan Kim
Xem chi tiết
Trần Tuyết Nhung
Xem chi tiết
TƯƠNG TƯ Đ
Xem chi tiết
Thiên Dii
Xem chi tiết