Bài 8. Lặp với số lần chưa biết trước

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Nguyễn Phan Thanh Mai

Viết chương trình nhập dãy số nguyên gồm n phần tử . In lên màn hình. Tính trung bình các phần tử chẳn lẻ . In lên màn hình

Giúp mình với ạ mai mình thi rồi

Nguyễn Lê Phước Thịnh
13 tháng 5 2021 lúc 9:40

uses crt;

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

i,n,t1,t2,dem1,dem2:integer;

begin

clrscr;

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

for i:=1 to n do 

  begin

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

end;

writeln('Day so vua nhap la: ');

for i:=1 to n do 

  write(a[i]:4);

writeln;

t1:=0;

dem1:=0;

t2:=0;

dem2:=0;

for i:=1 to n do 

 begin

if a[i] mod 2=0 then

begin

t1:=t1+a[i];

inc(dem1);

end

else begin

t2:=t2+a[i];

inc(dem2);

end;

end;

writeln('Trung binh cac so chan la: ',t1/dem1:4:2);

writeln('Trung binh cac so le la: ',t2/dem2:4:2);

readln;

end.


Các câu hỏi tương tự
HUY HUỲNH QUANG
Xem chi tiết
Nguyễn Thị Ngọc Oanh
Xem chi tiết
Joc Bok
Xem chi tiết
huy123
Xem chi tiết
huỳnh duy cát
Xem chi tiết
nguyễn thị như ý
Xem chi tiết
Giap Nguyen Van
Xem chi tiết
su nè
Xem chi tiết
Lê Tâm Anh
Xem chi tiết