Question

Viết chương trình nhập vào 1 mảng gồm 5 số nguyên và thực hiện:

(các số được nhập từ bàn phím)

a) In giá trị của mảng ra màn hình trên cùng 1 dòng

b) In các phân tử có giá trị lẻ

c) Sắp xếp mảng theo chiều tăng dần

Answer 1

uses crt;

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

i, j, t, dem : integer;

begin

clrscr;

writeln('nhap mang gom 5 so :');

for i:=1 to 5 do

begin

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

end;

writeln('mang vua nhap la:');

for i:=1 to 5 do write(a[i]:3);

writeln;

dem:=0;

for i:=1 to 5 do

if a[i] mod 2 <>0 then

begin

dem:=dem+1;

writeln(a[i],' la phan tu le');

end;

if dem=0 then writeln('trong mang khong co phan tu le');

for i:=1 to 4 do

for j:=i+1 to 5 do

if a[i]>a[j] then

begin

t:=a[i];

a[i]:=a[j];

a[j]:=t;

end;

writeln('mang da duoc sap xep theo chieu tang dan la:');

for i:=1 to 5 do write(a[i]:3);

readln;

end.