Cho 1 dãy số bất kì Hãy đưa ra màn hình số bé nhất nhất và số lớn nhất

0 bình luận về “Cho 1 dãy số bất kì Hãy đưa ra màn hình số bé nhất nhất và số lớn nhất”

1. uses crt;
   var max,min,n,i:integer;a:array[1..100] of integer;
   begin
   clrscr;
   write(‘Nhap so luong phan tu cua day: ‘);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(‘So lon nhat la: ‘,max);
   writeln(‘So nho nhat la: ‘,min);
   readln
   end.

   Bình luận

2. Program hoidap247;

   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