Nhập vào mảng số nguyên:
a)xuất ra các số chẳn,lẻ.
b)sắp xếp mãng theo thứ tự tăng dần, giảm dần.
Giúp em với ạ
0 bình luận về “Nhập vào mảng số nguyên: a)xuất ra các số chẳn,lẻ. b)sắp xếp mãng theo thứ tự tăng dần, giảm dần. Giúp em với ạ”
uses crt; var a:array[1..10000] of longint; n,i,j,tg:longint; begin clrscr; write(‘Nhap so luong phan tu: ‘); readln(n); for i:=1 to n do begin write(‘Nhap phan tu thu ‘,i,’: ‘); readln(a[i]); end; write(‘a) Cac so chan: ‘); for i:=1 to n do if a[i] mod 2=0 then write(a[i],’ ‘); writeln; write(‘ Cac so le: ‘); for i:=1 to n do if a[i] mod 2=1 then write(a[i],’ ‘); writeln; for i:=1 to n-1 do for j:=i+1 to n do if a[i]>a[j] then begin tg:=a[i]; a[i]:=a[j]; a[j]:=tg; end; write(‘b) Day tang dan: ‘); for i:=1 to n do write(a[i],’ ‘); writeln; for i:=1 to n-1 do for j:=i+1 to n do if a[i]<a[j] then begin tg:=a[i]; a[i]:=a[j]; a[j]:=tg; end; write(‘ Day giam dan: ‘); for i:=1 to n do write(a[i],’ ‘); readln; end.
uses crt;
var a:array[1..10000] of longint;
n,i,j,tg:longint;
begin
clrscr;
write(‘Nhap so luong phan tu: ‘); readln(n);
for i:=1 to n do
begin
write(‘Nhap phan tu thu ‘,i,’: ‘); readln(a[i]);
end;
write(‘a) Cac so chan: ‘);
for i:=1 to n do if a[i] mod 2=0 then write(a[i],’ ‘); writeln;
write(‘ Cac so le: ‘);
for i:=1 to n do if a[i] mod 2=1 then write(a[i],’ ‘); writeln;
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]>a[j] then
begin
tg:=a[i];
a[i]:=a[j];
a[j]:=tg;
end;
write(‘b) Day tang dan: ‘);
for i:=1 to n do write(a[i],’ ‘); writeln;
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]<a[j] then
begin
tg:=a[i];
a[i]:=a[j];
a[j]:=tg;
end;
write(‘ Day giam dan: ‘);
for i:=1 to n do write(a[i],’ ‘);
readln;
end.
uses crt;
var a: array[1..100] of integer;
i,n,j: integer;
t: real;
begin
clrscr;
write (‘nhap so phan tu: ‘); readln (n);
for i:=1 to n do
begin
write (‘nhap so thu ‘,i,’: ‘); readln (a[i]);
end;
write (‘so chan trong day: ‘);
for i:=1 to n do if a[i] mod 2=0 then write (a[i],’ ‘);
write (‘so le trong day: ‘);
for i:=1 to n do if a[i] mod 2<>0 then write (a[i],’ ‘);
writeln;
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 (‘mang theo thu tu giam dan: ‘);
for i:=1 to n do write (a[i],’ ‘);
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 (‘mang theo thu tu tang dan: ‘);
for i:=1 to n do write (a[i],’ ‘);
readln;
end.