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!
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!