viết chương trình nhập số nguyên từ bàn phím.in ra màn hình số nhỏ nhất và số lớn nhất.n cũng được nhập từ bàn phím Giúp mk với màn

0 bình luận về “viết chương trình nhập số nguyên từ bàn phím.in ra màn hình số nhỏ nhất và số lớn nhất.n cũng được nhập từ bàn phím Giúp mk với màn”

1. program mang;

   uses crt;

   var A:array [1..500] of integer;

         n,i,max,min: integer;

   Begin

            clrscr;

            write(‘Nhap so phan tu: ‘); readln(n);

            max:=1; min:=1;

            for i:=1 to n do

            begin

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

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

                     if min>A[i] then min:=A[i];

            end;

            write(‘So lon nhat: ‘,max,’ ,  so nho nhat: ‘,min);

            readln

   End.

   Bình luận

2. Uses Crt;
   Var n,a:integer;
   Begin
   Clrscr;
   Writeln(‘Nhap a vao day:’); Readln(a);
   Writeln(‘Nhap n vao day:’); Readln(n);
   If a<n then writeln(‘So lon nhat la:’,n) else if a>n then writeln(‘So lon nhat la:’,a);
   If a<n then writeln(‘So nho nhat la:’,a) else if a>n then writeln(‘So nho nhat la:’,n);
   READLN
   End.
   *Nhớ tick và chọn làm câu tr/l hay nhất giúp mình nhé! Thanks :333
   p/s: Thắc mắc, hỏi và đáp ở phần comment

   Bình luận