Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Trần Hương Trà

Viết chương trình nhập vào dãy n số tự nhiên và tính giá trị trung bình cộng của n số nguyên nhập từ bàn phím. (Gía trị trung bình lấy 2 số lẻ). Mình đang cần gấp ạ!!

Thế Thôi
24 tháng 4 2022 lúc 22:03

program b1;
uses crt;
var n,i:integer;
tb:real;
a:array[1..100] of integer;
begin
clrscr;
write('nhap n:');readln(n);
writeln('nhap day so:');
for i:=1 to n do
begin
write('a[',i,']=');readln(a[i]);
end;
tb:=0;
for i:=1 to n do if a[i] mod 2<>0 then tb:=tb+a[i];
tb:=tb/n;
write('trung binh cong cua day so vua nhap la:',tb:2:2);
readln;
end.

Tham Khảo! mình không biết làm sao để nó chỉ lấy 2 số lẻ nx trên 2 sô được không?bucminh


Các câu hỏi tương tự
Đức Anh Nguyễn
Xem chi tiết
Nguyễn Thuận
Xem chi tiết
Vũ hữu quyền
Xem chi tiết
Thư Huỳnhh
Xem chi tiết
Ngọc Lê Thị Bích
Xem chi tiết
Tuoi tom May
Xem chi tiết
Ẹih bw
Xem chi tiết
Khang Ngo
Xem chi tiết
Phú Lưu
Xem chi tiết
Ngọc hà
Xem chi tiết