Làm quen với tin học và máy tính điện tử

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Hoàng Tuấn Khang

Viết chương trình nhập vào 1 mảng a gồm 10 phần tử

a. In ra mảng và nhập

b. In ra các phần tử lẻ

c. In ra các phần tử chẵn

d. In ra các phần tử có giá trị bằng 5

e. In ra các phần tử chia hết cho 3

Giúp em với ạ

Minh Lệ
10 tháng 4 2019 lúc 12:09

Lời giải :

Đề chưa cho kiểu dữ liệu nên mình sẽ làm mảng là thuộc kiểu dữ liệu số nguyên và mình sẽ làm gộp trong 1 chương trình luôn nhé !

Program hotrotinhoc ;

var a: array[1..10] of real ;

i,n : integer ;

begin

write('Nhap cac phan tu cua mang');

{cau a};

for i:= 1 to 10 do

begin

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

end;

{cau b};

write('Cac phan tu le la :');

for i:= 1 to 10 do

if a[i] mod 2 = 1 then write(a[i]:2);

{cau c};

writeln('Cac phan tu chan la:');

for i:= 1 to 10 do

if a[i] mod 2=0 then write(a[i]:2);

{cau d};

writeln('Cac phan tu co gia tri bang 5 la :');

for i:= 1 to 10 do

if a[i] = 5 then write(a[i]);

{cau e};

writeln('Cac phan tu chia het cho 3 la :');

for i:= 1 to 10 do

if a[i] mod 3= 0 then write(a[i]:2);

readln

end.


Các câu hỏi tương tự
Nguyen Kiet
Xem chi tiết
Dragon
Xem chi tiết
Nhung
Xem chi tiết
hoa Nguyễn
Xem chi tiết
Linh Nguyễn
Xem chi tiết
Đỗ Đức Lâm
Xem chi tiết
Hải Hoàng
Xem chi tiết
Duyên Phạm
Xem chi tiết
tuyết trinh
Xem chi tiết