Viết ctr con tìm số nhỏ hơn trong hai số a ,b .Áp dụng ctr con đó để tìm số nhỏ nhất của n số được nhập vào từ bàn phím .mọi người giúp mik vs ????
Viết ctr con tìm số nhỏ hơn trong hai số a ,b .Áp dụng ctr con đó để tìm số nhỏ nhất của n số được nhập vào từ bàn phím .mọi người giúp mik vs ????
By Arianna
program nho_nhat;
uses crt;
var A:array[1..1000] of integer;
n,i,m:integer;
{——chuong-trinh-con——-}
function min(x,y:integer):integer;
begin
if x<y then min:=x else min:=y;
end;
{——chuong-trinh-chinh——}
BEGIN
clrscr;
write(‘Nhap n: ‘); readln(n);
for i:=1 to n do
begin
write(‘Nhap so thu ‘,i,’: ‘); readln(A[i]);
end;
m:=A[1];
for i:=2 to n do
m:=min(m,A[i]);
write(‘So nho nhat la: ‘,m);
readln;
end.
uses crt;
var
a,b: array[1..10000] of integer;
n,i: integer;
function min(a,b: integer):integer;
begin
If a > b then min:=b
else min:=a;
end;
begin
clrscr;
write(‘Nhap n= ‘);readln(n);
for i:=1 to n do
begin
writeln(‘- CAP SO THU ‘,i,‘ -‘);
write(‘Nhap so thu 1: ‘);readln(a[i]);
write(‘Nhap so thu 2: ‘);readln(b[i]);
end;
for i:=1 to n do
writeln(‘Min cua cap so thu ‘,i,‘ la: ‘,min(a[i],b[i]));
readln;
end.