1. Trang chủ
  2. » Giáo án - Bài giảng

Tìm Max Min trên ma trận - Đạt N.Huệ

2 543 0

Đang tải... (xem toàn văn)

THÔNG TIN TÀI LIỆU

Thông tin cơ bản

Định dạng
Số trang 2
Dung lượng 27,5 KB

Nội dung

Trang 1

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];

Trang 2

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

Ngày đăng: 12/07/2014, 15:00

TỪ KHÓA LIÊN QUAN

w