Элементарная задача,определить наименьшее число

[juzam]

Помогите решить элементарную задачу)))НУжно определить наименьшее число из 2(3) можно и 4ех чисел))))Могу подлиться решением задачи на опрделение наибольнешо числа из 2 данных. (|a+b|+|a-b|) :2

[Викдон]

определить наименьшее число из 4 чисел?
Const n=4;
var mas: array[1..n] of integer;
min:integer;
begin
min:=mas[1];
for i:=2 to n do
if min>mas[i] then
min:=mas[i];

end.

[juzam]

Желательно,ещё б из 2)

[Викдон]

Const n=3 (при определении 3-х чисел) Const n=2(при определении 2-х чисел)

[_Engine_]

function GetMin (Arr : array of Integer) : Integer;
var i : Integer;
begin
  Result := High(Integer);
  for i := lo(Arr) to High(Arr) do
    if Result > Arr[i] then Result := Arr[i]; 
end;

Что-то типа того, набирал на коленке, не проверял.

[Plague]

для a и b:
min_ab=(|a+b|+|a-b|) :2, так?
тогда a, b, c:
min_abc = (|min_ab+c|+|min_ab-c|) :2
тогда a, b, c, d:
min_abcd = (|min_abc+d|+|min_abc-d|) :2
и так далее...

[alex_fcsm]

uses crt;
const n=10;
var i,temp:integer;
    a:array[1..n] of integer;
begin
clrscr;
randomize;
for i:=1 to n do
  begin
   a[i]:=random(100);
   write(a[i]:3);
  end;
 writeln;
for i:=n downto 2 do
      if a[i-1]>a[i] then
        begin
          Temp:=a[i-1];
          a[i-1]:=a[i];
          a[i]:=temp;
        end;
writeln(a[1]);
end.

[juzam]

Сообщение от Plague

для a и b:
min_ab=(|a+b|+|a-b|) :2, так?

Вообщето ето для max