- Bôi đen các phần tử của mảng chọn biểu tượng
-Chọn ô tiêu đè có chứa dữ liệu
- Chọn Data - Filter - Auto Filter, chọn mũi tên cạnh ô tiêu đề chứa dữ liệu cần lọc
program mang_2_chieu;
uses crt;
var m,n,i,j,t,k:word;
max,max2:longint;
a:array[1..100,1..100] of longint;
begin
clrscr;
write('nhap m:');readln(m);
write('nhap n:');readln(n);
writeln('nhap mang A:');
for i:=1 to m do
for j:=1 to n do
begin
write('a[',i,',',j,']=');readln(a[i,j]);
end;
writeln('mang da nhap :');
for i:=1 to m do
begin
for j:=1 to n do write(a[i,j]:3);
writeln;
end;
for i:=1 to m do
begin
for j:=1 to n-1 do
for t:=j+1 to n do
if(a[i,j]>a[i,t]) then
begin
k:=a[i,j];
a[i,j]:=a[i,t];
a[i,t]:=k;
end;
end;
writeln('mang da sap xep cac phan tu theo thu tu tang dan cua moi hang la:');
for i:=1 to m do
begin
for j:=1 to n do write(a[i,j]:3);
writeln;
end;
max:=a[1,1]; max2:=a[1,1];
for i:=1 to m do
for j:=1 to n do
if a[i,j]>max then max:=a[i,j];
for i:=1 to m do
for j:=1 to n do
if (a[i,j]<max) and (a[i,j]>max2) then max2:=a[i,j];
writeln('so lon nhat la:',max);
write('so lon nhi la:',max2);
readln;
end.