min, max vào pascal giúp mình vs.Cảm ơn nhiều

0 bình luận về “min, max vào pascal giúp mình vs.Cảm ơn nhiều”

1. program ct;

   uses crt;

   var i,n,Max,Min:integer;

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

   begin

   clrscr;

     write(‘nhap n:=’);readln(n);

       for i:=1 to n do

   begin

     write(‘nhap mang A[‘,i,’]:=’);readln(A[i]);

   end;

     Max:=A[1]; Min:=A[1];

         for i:=2 to n do

     begin

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

         if Min>A[i] 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. program max,min;

   uses crt;

   var   i,n,max,min:integer;

           A: array[1…100]of integer;

   bagin

          clrscr;

          writeln ( ‘hay nhap do dai cua day so, N =’); readln(n);

          end;

          for i:=1 to n do 

          begin ( ‘a[‘,i,’]=’);readln(a[i]);

          end;

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

           for i:=2 to n do

           begin   if max<a[1] then max:=a[i];

                        if min > a[1] then min :=a[i];

            end;

           writeln(‘so lon nhat la:’, max);

           writeln(‘so nho nhat la:’, min);

           readln

   end.

   Bình luận