Viết chương trình nhập vào 20 số thực và đưa ra màn hình số lớn nhất, bé nhất. Help me!!!!

0 bình luận về “Viết chương trình nhập vào 20 số thực và đưa ra màn hình số lớn nhất, bé nhất. Help me!!!!”

1. uses crt;

   var a: array[1..20] of real;

   min,max: real;

   i,n: byte;

   begin

   clrscr;

   write (‘nhap so luong phan tu: ‘);  readln (n);

   for i:=1 to n do

   begin

   write (‘nhap phan tu thu ‘,i,’: ‘);  readln (a[i]);

   end;

   max:=a[1];

   min:=a[1];

   for i:=1 to n do

   begin

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

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

   end;

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

   writeln (‘so be nhat: ‘,min);

   readln;

   end.

   Bình luận

2. program max_min;

   uses crt;

   var A:array[1..20] of real;

         i:byte;

         max,min:real;

   begin

         clrscr;

         for i:=1 to 20 do

               begin

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

               end;

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

         for i:=2 to 20 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:0:2);

         writeln(‘So be nhat la: ‘,min:0:2);

         readln;

   end.

   Bình luận