cho mảng a gồm n số nguyên dương, không dùng thêm mảng phụ,không sắp xếp mảng A,viết chương trình in ra màn hình
Dòng 1:Các mảng số chẵn theo thứ tự tăng dần
Dòng 2:Các mảng số lẻ theo thứ tự tăng dần
cho mảng a gồm n số nguyên dương, không dùng thêm mảng phụ,không sắp xếp mảng A,viết chương trình in ra màn hình
Dòng 1:Các mảng số chẵn theo thứ tự tăng dần
Dòng 2:Các mảng số lẻ theo thứ tự tăng dần
uses crt;
var i,n,k,m:longint; a:array[0..1000000]of longint;
Procedure kt;
var i,ktt:longint;
begin
ktt:=0;
for i:=1 to n do if(a[i]<>-5)and(a[i] mod 2=m)
and(((ktt=0)and(a[i]>=a[k]))or((ktt=1)and(a[i]<=a[k]))) then
begin k:=i; ktt:=1; end;
end;
begin
clrscr;
write(‘N=’);readln(n);
for i:=1 to n do
begin
write(‘a[‘,i,’]=’);readln(a[i]);
end;
m:=0; k:=0;
for i:=1 to n do
begin
kt;
if (a[k]<>-5)and(k<>0) then begin write(a[k],’ ‘); a[k]:=-5; end;
end; writeln;
m:=1; k:=0; a[k]:=0;
for i:=1 to n do
begin
kt;
if (a[k]<>-5)and(k<>0) then begin write(a[k],’ ‘); a[k]:=-5; end;
end;
readln
end.
uses crt;
var a:array[1..10000000] of longint;
n,i,j,t:longint;
begin
clrscr;
write(‘Nhap do dai cua mang: ‘);readln(n);
for i:=1 to n do
begin
write(‘a[‘,i,’]=’);readln(a[i]);
end;
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]>a[j] then
begin
t:=a[i];
a[i]:=a[j];
a[j]:=t;
end;
write(‘Cac so chan theo thu tu tang dan: ‘);
for i:=1 to n do
if a[i] mod 2=0 then write(a[i],’ ‘);
writeln;
write(‘Cac so le theo thu tu tang dan: ‘);
for i:=1 to n do
if a[i] mod 2<>0 then write(a[i],’ ‘);
readln;
end.