Mô tả thuật toán tìm giá trị nhỏ nhất, lớn nhất trong 1 dãy số a1, a2,-an

0 bình luận về “Mô tả thuật toán tìm giá trị nhỏ nhất, lớn nhất trong 1 dãy số a1, a2,-an”

1. program lon_nho_nhat;

   uses crt;

   var A:array[1..100] of integer;

         n,i,max,min:integer;

   begin

          clrscr;

          write(‘Nhap n: ‘);  readln(n);

          for i:=1 to n do

                 begin

                        write(‘Nhap so thu ‘,i,’: ‘);  readln(A[i]);

                 end;

          max:=A[1];  min:=A[1];

          for i:=2 to n do

                 begin

                        if A[i]>max then max:=A[i];

                        if A[i]<min then min:=A[i];

                 end;

          writeln(‘Gia tri lon nhat la: ‘,max);

          writeln(‘Gia tri nho nhat la: ‘,min);

          readln;

   end.

   Bình luận

2. MÌNH LÀM MỘT BÀI VD TÌM SỐ LỚN NHẤT NHA

   PROGRAM BT;

   VAR 

   BEGIN

       WRITELN (‘NHAP N’); READLN (N);

       FOR I:= 1 TO N DO

       BEGIN

       WRITELN (‘NHAP PT THU ‘,I,”);

       READLN (A[I]);

       END;

       MAX := A[1];

      FOR I:= 2 TO N DO

      IF A[I] > MAX THEN MAX:= A[I] THEN WRITELN (‘SO LON NHAT LA’, MAX);

      READLN 

   END;

   NHỚ VOTE CHO MÌNH NHA

   Bình luận