Минимальное значение массива

[Sweet-_-Orange]

Оформить функцию с именем Min, принимающая указанный массив, а возвращает его минимальный элемент. Массив инициализировать как константу. Разработать работающую программу.
Я все сделал, но нужно через функцию, я не знаю какие данные вводить

const N=5;
var
   A : array[1..N] of Integer;
   i, Min,TMP:Integer;
begin
    Randomize;
  for i:=1 to N do
    begin
    A[i]:=Random(50);
    Write('A[',i,']=',A[i],' ');
    end;
  WriteLn;
  Min:=A[1];
  for i:=1 to N do
    if A[i] < Min  then
      Min:=A[i];
WriteLn('Minim znach = ',Min);
readln;
end.

[rUs_LAN]

за 10wmz зделаю...

[Sweet-_-Orange]

2 строчки написать?
нет, спасибо

[VIK_aka_TOR]

Сообщение от Sweet-_-Orange

2 строчки написать?
нет, спасибо

за весьма короткий промежуток времени вы сдесь стали постояльцем... и задания не самой высокой сложности... а за то что вы сами думать отказываетесь... приходится платить...

[Sweet-_-Orange]

я вообще то сам стараюсь думать, и делаю все что могу..

[VIK_aka_TOR]

в таком случае старайтесь делать больше...
вот вам... должно подойти..

const N=5;
type
mas = array [1..n] of integer;
var
   A : mas;
   i:Integer;
   
function min(k: integer; b: mas): integer;
var minn ,i: integer;
begin
    Minn:=b[1];
    for i:=1 to k do
    if b[i] < Minn  then
    Minn:=b[i];
    min:= minn;
end;

begin
    Randomize;
  for i:=1 to N do
    begin
    A[i]:=Random(50);
    Write('A[',i,']=',A[i],' ');
    end;
  WriteLn;

WriteLn('Minim znach = ',Min(n,a));
readln;
end.

[Serge_Bliznykov]

в Паскале (в том числе и старом, DOSовском TurboPascal) есть такое понятие, как параметр в виде открытого массива (не путать с заданием динамического массива - это совсем другое).

решение, которое использует такой подход:

const N=5;

function Min(Mas :array of Integer) : integer;
var i : Integer;
    minValue : Integer;
begin
  minValue := Mas[Low(Mas)];
  for i:=Low(Mas)+1 to High(Mas) do
    if Mas[i]<minValue then minValue := Mas[i];
  Min := minValue;
end;

var
   A : array[1..N] of Integer;
   i : Integer;
begin
  Randomize;
  {заполнить массив случайными числами 
      и одновременно выдавать значения массива }
  for i:=1 to N do
    begin
    A[i]:=Random(50);
    Write('A[',i,']=',A[i],' ');
    end;
  Writeln;

  {выведем значение минимального элемента массива }
  WriteLn('Minim znach = ',Min(A));
  readln;
end.

p.s. другой возможный вариант решения представлен VIK_aka_TOR в пост #6
(задаётся новый тип для массива и используется этот тип и для описания переменной массива и для формального параметра в функции

[Sweet-_-Orange]

Спасибо большое!