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

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. . 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. 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, '. 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

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

TỪ KHÓA LIÊN QUAN

w