Nhập dãy n số nguyên, in ra màn hình số nhỏ nhất và số lớn nhất, với n được nhập từ bàn phím

0 bình luận về “Nhập dãy n số nguyên, in ra màn hình số nhỏ nhất và số lớn nhất, với n được nhập từ bàn phím”

1. Program Hotboy ;

   Uses crt;

   Var i,n,Max,Min:integer;

   S:longint;

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

   Begin

   Clrscr;

   S:=0;

   Write(‘nhap n tu ban phim’);

   Readln(n);

   For i:=1 to n do

   Begin

   Write(‘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;

   Write(‘so nho nhat la’,Min);

   Write(‘so lon nhat la’,Max);

   Readln

   End.

   Bình luận

2. program ct;

   uses crt;

   var Max,Min,i,n:integer;

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

   Begin

   clrscr;

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

     for i:=1 to n do

   begin

   write(‘nhao 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(‘so lon nhat la’,Max);

      writeln(‘so nho nhat la’,Min);

   readln

   end.

   Bình luận