1. Максимальное число в массиве
function Max(p: array of integer): integer;
var i: integer;
begin
Result:=p[Low(p)];
For i:=Low(p)+1 to High(p) do
If Result<p[i] then
Result:=p[i];
end;
где
p - массив из целых чисел.
Например, Max([6, 3, 8, 7, 4, 5]) выведет '8'.
2. Минимальное число в массиве
function Min(p: array of integer): integer;
var i: integer;
begin
Result:=p[Low(p)];
For i:=Low(p)+1 to High(p) do
If Result>p[i] then
Result:=p[i];
end;
где
p - массив из целых чисел.
Например, Min([6, 3, 8, 7, 4, 5]) выведет '3'.
Примечание. Допускается использовать не только целочисленные числа, но и вещественные (десятичные, дробные). В этом случае integer заменяют на real:
function Max(p: array of real): real;
Текст программного кода остается неизменным.
|