Tìm Max Min trên ma trận - Đạt N.Huệ
Bạn đang xem bản rút gọn của tài liệu. Xem và tải ngay bản đầy đủ của tài liệu tại đây (28.7 KB, 2 trang )
var A:array[1 10,1 10]of integer;
i,j,m,n,max,min,dem:integer;
begin
readln(n,m);
For i:=1 to n do
For j:=1 to m do
readln(a[i,j]);
For i:=1 to n do
begin
For j:=1 to m do
write(a[i,j]:5);
writeln
end;
For i:=1 to n do
begin
For j:=1 to m do
if j=1 then
begin
max:=A[i,j];
min:=A[i,j];
end
else
begin
if a[i,j]>max then max:=A[i,j];
if a[i,j]<min then min:=A[i,j];
end;
Writeln('Phan tu lon nhat dong ',i,' la ',max,' o cac vi tri :');
For j:=1 to m do
if A[i,j]=max then Write('A[',i,',',j,'] ; ');
writeln;
Writeln('Phan tu nho nhat dong ',i,' la ',min,' o cac vi tri :');
For j:=1 to m do
if A[i,j]=min then Write('A[',i,',',j,'] ; ');
writeln;
end;
For j:=1 to m do
begin
For i:=1 to n do
if i=1 then
begin
max:=A[i,j];
min:=A[i,j];
end
else
begin
if a[i,j]>max then max:=a[i,j];
if a[i,j]<min then min:=a[i,j];
end;
Writeln('Phan tu lon nhat cot ',j,' la ',max,' o cac vi tri :');
For i:=1 to n do
if A[i,j]=max then Write('A[',i,',',j,'] ; ');
writeln;
Writeln('Phan tu lon nho cot ',j,' la ',min,' o cac vi tri :');
For i:=1 to n do
if A[i,j]=min then Write('A[',i,',',j,'] ; ');
writeln;
end;
For i:=1 to n do
For j:=1 to m do
begin
if (i=1) and (j=1) then
begin
max:=A[i,j];
min:=A[i,j];
end
else
begin
if A[i,j]>max then max:=A[i,j];
if A[i,j]<min then min:=A[i,j];
end;
end;
Writeln('Phan tu lon nhat cua mang la ',max);
Writeln('Phan tu nho nhat cua mang la ',min);
For i:=1 to n do
For j:=1 to m do
if a[i,j]=max then inc(dem);
Write('Mang co ',dem,' phan tu lon nhat');
readln
end.
