Bài 12: Kiểu xâu

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Trường Giang Vũ

Nhập từ bàn phím 1 mảng gồm n số nguyên ( n <= 50, n nhập từ bàn phím )
yêu cầu : Đếm và viết ra màn hình số phần tử có giá trị chẵn trong mảng
viết ra giá trị tbc của các số chẵn trong mảng

Nguyễn Lê Phước Thịnh
19 tháng 6 2020 lúc 20:34

uses crt;

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

n,i,dem,tbc:integer;

begin

clrscr;

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

for i:=1 to n do

begin

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

end;

writeln('Cac so chan la: ');

dem:=0;

tbc:=0;

for i:=1 to n do
if a[i] mod 2=0 then

begin

write(a[i]:4);

inc(dem);

tbc:=tbc+a[i];

end;

writeln;

writeln('So phan tu chan la: ',dem);

writeln('Trung binh cong cua cac so chan trong day la: ',tbc/dem:4:2);

readln;

end.


Các câu hỏi tương tự
Huyền Nguyễn
Xem chi tiết
Linh Daxua
Xem chi tiết
A8_ Võ Thị Thương
Xem chi tiết
tonhu
Xem chi tiết
Cảnh Lê
Xem chi tiết
Thanh Nhi Phạm
Xem chi tiết
Trường Giang Vũ
Xem chi tiết
Miner Đức
Xem chi tiết
Nguyễn khánh thành
Xem chi tiết