Viết chương trình nhập mảng B gồm N phần tử, các phần tử có dữ liệu số nguyên. Xuất giá trị mảng ra màn hình Xuất ra màn hình các phần tử là chẵn(N<=100) Nhanh lên ạ

ttvh0108

2 năm trước

Loga Sinh Học lớp 12

0 lượt thích 39 xem

1 trả lời

Thích Trả lời

Mai

program so_chan;

uses crt;

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

n,i,d:byte;

begin

clrscr;

write('Nhap N: '); readln(n);

d:=0;

for i:=1 to n do

begin

write('B[',i,']= '); readln(B[i]);

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

end;

write('Mang B la: ');

for i:=1 to n do write(B[i],' ');

writeln;

if d=0 then write('Khong co so chan')

else

begin

write('Cac so chan la: ');

for i:=1 to n do

if B[i] mod 2=0 then write(B[i],' ');

end;

readln;

end.

Vote (0) Phản hồi (0) 2 năm trước

tranthecong112005

uses crt;
var B:array[1..100] of integer; n,i:integer;
begin
clrscr;
write('Nhap so luong phan tu: '); readln(n);
for i:=1 to n do
begin
write('Phan tu thu ',i,': '); readln(B[i]);
end;
write('Day so ban vua nhap: ');
for i:=1 to n do write(B[i],' ');
writeln;
if B[i] mod 2=0 then
begin
write('Cac phan tu chan: ');
for i:=1 to n do if B[i] mod 2=0 then write(B[i],' ');
end
else write('Day so ban vua nhap khong co so chan');
readln;
end.

Vote (0) Phản hồi (0) 2 năm trước

Các câu hỏi liên quan

Trong không gian Oxyz , mặt phẳng nào dưới đây đi qua điểm M (1; 2;1) ? A.

Trong cuộc khai thác thuộc địa lần thứ nhất về kinh tế pháp đã thực hiện những chính sách gì ? Mục đích của những chính sách trên

cho A=m+n/m-n Tìm m,n để A có giá trị lớn nhất ,biết m,n là các số tự nhiên trong 100 số tự nhiên bắt đầu từ 1

a. Trong câu thơ: “Súng bên súng đầu sát bên đầu”, việc dùng từ “bên” có ý nghĩa như thế nào? Chép một câu thơ khác trong bài thơ cũng có từ “bên”. b. Hãy nêu cảm nhận về câu thơ “Súng bên súng đầu sát bên đầu”?

Quy trình lắp đặt mạch điện

Hứa vote 5 sao ctlhn cảm ơn Chiều mình ktra rùi giải đầy đủ và ngắn gọn xíu ạ

Người ta thả một miếng nhôm khối lượng 0,5 kg vào 500 gam nước miếng nhôm nhuộm đây từ 80 độ c xuống 20 độ c hỏi nước nhận được một nhiệt lượng bằng bao nhiêu và nóng lên thêm bao nhiêu độ bộ cho biết nhiệt dung riêng của nhôm là 880j/kg.k của nước là 4.200j/kg.k

Vì vì sao trong thành phố trồng nhiều cây xanh hoa kiểng? Em hãy nêu bốn việc làm ô nhiễm môi trường?

Tình hình hiện tại của dịch bệnh Lập Thạch - Vĩnh Phúc tại dạo này mình ko để tế lắm ai tóm gọn đẻ mik đọc cho bằng!! Mik ko biết đây là môn j sorry nha

giúp mk vs ...........................................

Loga.vn - Cộng Đồng Luyện Thi Trực Tuyến