các bạn ơi,xem dùm mình bài pascal này: program bt0; uses crt; var a,b,k,max,min,d,i,z:longint; begin clrscr; write('so luong:'); readln(a); repeat k:=k+1; write('nhap so:'); readln(b); if i<b then z:=i; if max<=b then max:=b; if min<max then d:=min; min:=b; if d<min then i:=d; if z<i then z:=z; until k=a; writeln('so nho nhat la:',z); writeln('so lon nhat la:',max); readln; end. số lớn nhất thì báo bình thường nhưng số nhỏ nhất có khi đúng có khi sai các bạn hướng dẫn dùm mình nhé! thanks vẻy much!
