doc ghi du lieu

[r]

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

If max< a[i] then max:=a[i]; Vt:=1 ;

For I:=2 to m

If a[i]>max then Begin max:=a[i];VT:=i;end Hoac

Vt:=1

For i:=1 to m

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

9 10 11 12 34 12 13 45 F2

Go fai MHC.inp Assign(f,’HMC.inp’) Reset(f);

Readln(f,m,n) For i:=1 to m begin