История изменений
Исправление bormant, (текущая версия) :
Операторы досрочного выхода тогда мне нужны были.
Досрочный выход из функций/процедур был не помню с какой версии, но в 5.5 уже был (1988 год):
function min(a, b: Integer): Integer;
begin
min:=a;
if a<b then Exit;
min:=b;
end;
for i:=0 to n do begin
if a[i]<0 then Continue;
if a[i]=0 then Break;
s:=s+a[i];
end;
Исходная версия bormant, :
Операторы досрочного выхода тогда мне нужны были.
Досрочный выход из функций/процедур был не помню с какой версии, но в 5.5 уже был (1988 год):
function min(a, b: Integer): Integer;
begin
min:=a;
if a<b then Exit;
min:=b;
end;
for i:=0 to n do begin
if a[i]=0 then Break;
if a[i]<0 then Continue;
s:=s+a[i];
end;