Question

Cho mảng A có m hàng, n cột các số nguyên.

Viết chương trình:

- Sắp xếp các phần tử của mảng theo thứ tự tăng dần của mỗi hàng.

- Tìm số lớn nhất và số lớn thứ nhì của mảng.

Help nha mn

Answer 1

- 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

Answer 2

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.