Sử dụng chương trình con tìm số nhỏ nhất của 2 số. Viết chương trình sử dụng chương trình con trên tìm và đưa ra màn hình giá trị nhỏ nhất của mảng một chiều chứa n số nguyên nhập từ bàn phím. Giúp em với mọi người ❤️
2 câu trả lời
uses crt;
var a:array[1..1000] of longint;
i,n,min:longint;
function m(a,b:longint):longint;
begin
if a>b then exit(b);
exit(a);
end;
begin
clrscr;
write('n=');readln(n);
for i:=1 to n do readln(a[i]);
min:=a[1];
for i:=2 to n do
if m(min,a[i]) <> min then min:=m(min,a[i]);
writeln('Min= ',min);
readln;
end.
program bai_giai;
uses crt;
var A:array[1..1000] of integer;
n,i,nn:integer;
function min(x,y:integer):integer;
begin
if x>y then min:=y else min:=x;
end;
BEGIN
clrscr;
readln(n);
for i:=1 to n do read(A[i]);
nn:=min(A[1],A[2]);
for i:=3 to n do
if min(nn,A[i])<nn then nn:=min(nn,A[i]);
write(nn);
readln;
end.
