Question

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 ạ

Answer 1

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.