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 (12.61 KB, 1 trang )
<span class='text_page_counter'>(1)</span><div class='page_container' data-page=1>
Ghi => bien =>fai assign,rewrite,write,close.
Doc => fai=> bien assign,reset(f),read(f,bien nho),close(f)
Max:=a[1];
For i:=2 to m do
If max< a[i] then max:=a[i];
Vt:=1 ;
For I:=2 to .m do
If a[i]>max then Begin max:=a[i];VT:=i;end
Hoac
Vt:=1
For i:=1 to m do
If max:=a[i] them VT:=i
Sinh fai du lieu thu cong
Mo nnlt pascan
Alt –f, chen new
Nhap dl mang hai chieu
4 5
9 1 3 7 6
10 2 5 7 9
11 12 34 2 6
Go fai MHC.inp
Assign(f,’HMC.inp’)
Reset(f);
Readln(f,m,n)
For i:=1 to m do
begin