苯环结构模拟:1-5000(整数)无重复最低整数

来源:百度文库 编辑:中科新闻网 时间:2024/05/12 16:04:14

使用计算机语言解答 Turbo Pascal,用循环
=============
var
a:array[1..5000] of interger;
b:integer;
begin
b:=5001;
for i:=5000 downto 1 do begin
a[i]=i;
if a[i]<b then b=a[i];
end;
writeln('min=',b);
readln;
end.


这小子耍人啊