Kết quả tìm kiếm

Dai the doc moi ca mat

Dai dong gi the k biet

Mjh kug k pjt.mjh k co may chay thu nhung co le dug.

Can khon am duong dao. hjc ngke k h0p li lam

Program bt2; Var f, f1 :text; A:array[1..10] of integer; N,Tg, Min,i, ,t, x, k: integer; Begin Assign(f, 'songuyen.dat'); Reset(f); Assign(f1, 'snsapxep.dat'); Rewrite(f1); i:=0; While not eof(f) do begin i:=i+1; Read(f, x); a[i] := x; End; t:=i; K:=1; min:=a[1]; While k<t do...

Program bt1; Var f, f1 : text; i, x, n1, n2, n3: integer; Begin assign(f,'sn.dat'); Reset(f); Assign(f1,'snsx.dat'); Rewrite(f1); N1:=0; n2:=0; n3:=0; While not eof(f) do begin Read(f, x); If x=1 then n1:=n1+1; If x=2 then n2:=n2+1; If x=3 then n3:=n3+1; End; For i:=1 to n1 do...