Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Nguyễn Thị Vân

Viết chương trình nhập vào mảng dãy số n số phần tử nguyên và cho biết có bao nhiêu dãy số là chẵn? Tính trung bình cộng của dãy số còn nhập

Kiều Vũ Linh
28 tháng 4 2023 lúc 11:24

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

i,n,d:integer;

s:longint;

tbc:real;

begin

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

For i:=1 to n do

begin

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

s:=s+a[i];

if a[i] mod 2 = 0 then d:=d+1;

end;

tbc:=s/n;

writel('Co ',d,' so chan');

write('Trung binh cong cua day so la ',tbc:10:2);

readln

end.


Các câu hỏi tương tự
Mai Phương Lê
Xem chi tiết
Minh Duy
Xem chi tiết
Vochehoang
Xem chi tiết
19. Nguyễn Hà Bảo Ngân
Xem chi tiết
Lương Trần Phương Linh
Xem chi tiết
Trang Hà
Xem chi tiết
Phan
Xem chi tiết
Vochehoang
Xem chi tiết
Tuoi tom May
Xem chi tiết