Viết chương trình nhập vào mảng 1 chiều n phần tử (n<100). Từ bàn phím hãy sắp xếp và in ra theo thứ tự tăng dần. Hàng 1: các phần tử chia hết cho 3 Hàng 2: các phần tử không chia hết cho 3.
Viết chương trình nhập vào mảng 1 chiều n phần tử (n<100). Từ bàn phím hãy sắp xếp và in ra theo thứ tự tăng dần. Hàng 1: các phần tử chia hết cho 3 Hàng 2: các phần tử không chia hết cho 3.
uses crt;
var a:array[1..99] of longint;
n,i,j,tg:longint;
begin
clrscr;
write(‘Nhap so luong phan tu (n<100): ‘); readln(n);
for i:=1 to n do
begin
write(‘Nhap phan tu thu ‘,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
tg:=a[i];
a[i]:=a[j];
a[j]:=tg;
end;
write(‘Day tang dan: ‘);
for i:=1 to n do write(a[i],’ ‘); writeln;
write(‘Cac phan tu chia het cho 3: ‘);
for i:=1 to n do if a[i] mod 3=0 then write(a[i],’ ‘); writeln;
write(‘Cac phan tu khong chia het cho 3: ‘);
for i:=1 to n do if a[i] mod 3<>0 then write(a[i],’ ‘);
readln;
end.
uses crt;
var i,n,j,t:longint; a:array[1..100]of longint;
begin
clrscr;
write(‘Nhap n (n<100): ‘);readln(n);
for i:=1 to n do
begin
write(‘Nhap a[‘,i,’]: ‘);readln(a[i]);
for j:=1 to i do
if a[i]<a[j] then begin t:=a[i]; a[i]:=a[j]; a[j]:=t; end;
end;
writeln(‘Cac so chia het cho 3: ‘);
for i:=1 to n do if a[i] mod 3=0 then write(a[i],’ ‘); writeln;
writeln(‘Cac so khong chia het cho 3: ‘);
for i:=1 to n do if a[i] mod 3<>0 then write(a[i],’ ‘);
readln
end.