找最小数（查找）

admin 菜比学长想拿牌子 SU @ 2025-11-5 17:27:01

Pascal :

var s,i,j,n:integer;
begin
readln(n);
read(j);
s:=j;
for i:=2 to n do
begin
  read(j);
  if s>j then s:=j;
  end;
  writeln(s);
end.

1 solutions