Tìm Max,Min Trong Pascal - Cuz Blogger

Trang chủ » Tìm Max Trong Mảng Pascal » Tìm Max,Min Trong Pascal - Cuz Blogger

Có thể bạn quan tâm

Monday, February 17, 2014

Tìm Max,Min trong Pascal

Tìm Max :

Program Tim_Max; Var A:array [1..n] of Integer; (n có thể tự đặt hoặc do y/c của gviên. Vd : [1..10] , [1..50] ...) N,i,Max,csMax : integer; Begin writeln('nhap n='); readln(n); For i:=1 to n do begin writeln('nhap so phan tu thu',i); readln(A[i]); end; Max:=A[1], csMax:=1; For i:=2 to n do if A[i]>Max then begin Max:=A[i]; csMax:= i; end; writeln('GTLN la', Max); writeln('Chi so phan tu la', csMax); readln End.

Tìm Min :

Program Tim_Min; Var A:array [1..n] of Integer; (n có thể tự đặt hoặc do y/c của gviên. Vd : [1..10] , [1..50] ...) N,i,Min,csMin : integer; Begin writeln('nhap n='); readln(n); For i:=1 to n do begin writeln('nhap so phan tu thu',i); readln(A[i]); end; Min:=A[1], csMin:=1; For i:=2 to n do if A[i]<Min then begin Min:=A[i]; csMin:= i; end; writeln('GTNN la', Min); writeln('Chi so phan tu la', csMin); readln End. *Lưu ý: Ở đây mình viết "writeln" và "readln" nhưng các bạn cũng có thể viết là "write" và "read" Posted by at 8:04 AM

1 comment:

  1. UnknownDecember 28, 2019 at 2:42 AM

    vkl

    ReplyDeleteReplies
      Reply
Add commentLoad more... Newer Post Older Post Home Subscribe to: Post Comments (Atom)

Blog Archive

  • ▼  2014 (2)
    • ▼  February (2)
      • BT TIN 11 : Đếm xem trong dãy số có bao nhiêu số n...
      • Tìm Max,Min trong Pascal

About Me

Unknown View my complete profile

Từ khóa » Tìm Max Trong Mảng Pascal