Код IT
← Каталог

Pascal / Free Pascal — типовые программы — 10.5. Минимум в массиве

Фрагмент из «Pascal / Free Pascal — типовые программы»: 10.5. Минимум в массиве.

pascal lab1140 embed URL статья в энциклопедии
Pascal main.pas 
program ArrayMin;

var
  n, i, x, minVal: integer;

begin
  ReadLn(n);
  Read(minVal);
  for i := 2 to n do
  begin
    Read(x);
    if x < minVal then
      minVal := x;
  end;
  ReadLn;
  WriteLn(minVal);
end.
program ArrayMin;

var
  n, i, x, minVal: integer;

begin
  ReadLn(n);
  Read(minVal);
  for i := 2 to n do
  begin
    Read(x);
    if x < minVal then
      minVal := x;
  end;
  ReadLn;
  WriteLn(minVal);
end.