Câu 11: Viết chương trình nhập vào một mảng các số nguyên. Tìm và xuất ra màn hình giá trị nhỏ nhất và lớn nhất của chúng.

0 bình luận về “Câu 11: Viết chương trình nhập vào một mảng các số nguyên. Tìm và xuất ra màn hình giá trị nhỏ nhất và lớn nhất của chúng.”

1. program oken;

   uses crt;
   var a: array [1..100] of integer;
       i,n,max,min:integer;
   begin
           clrscr;
           write(‘nhap so n: ‘); 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
                   if a[i]>max then
                           max:=a[i]
                   else
                           if a[i]<min then
                                   min:=a[i]
                           else
                                   if (a[i]=max) and (a[i]=min) then Max:=Min;
           writeln(‘Max: ‘,max);
           writeln(‘Min: ‘,min);
           readln;
   end.

   Bình luận

2. Program BTH;
   uses crt;
   var a:array[1..10000] of longint;
   max,min,i,n:longint;
   Begin
           clrscr;
           write(‘Nhap n: ‘);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;
           writeln(‘So lon nhat la: ‘,max);
           writeln(‘So nho nhat la: ‘,min);
           readln;
   end.

   Bình luận