Розробть програму для обчислення мнмального числа у вдкритому масив. Кльксть елементв

var

   N : integer;    // количество частей массива

   M : integer;    // меньшее значение массива

begin

   randomize;

   write('введите число частей массива ');

   readln(N);

   var D : array of integer := new integer[N];

   M := 76;    // присваиваем M любое число больше максимально вероятного

   for var i := 0 to N-1 do begin

       D[i] := random(0, 75);

       if M gt; D[i] then M := D[i];

   end;  

   writeln('Сгенерирован массив:');

   writeln(D);

   writeln('меньший член массива равен = ', M);

end.

тестировалось в PascalABC.Net, в иных версиях паскаля синтаксис может иметь малозначительные отличия.

program minmas;

uses crt;

var

mas: array of integer;

    n, min: integer;

begin

writeln('Введите количество частей массива: ');

readln(n);

setlength(mas, n);

writeln('Введите элементы массива: ');

for var i:=0 to high(mas) do

read(mas[i]);

writeln('Вывод массива: ');

for var i:=0 to high(mas) do

write(mas[i],' ');

min:=mas[0];

for var i:=1 to high(mas) do

begin

if(mas[i]lt;min) then

min:=mas[i];

end;

writeln();

writeln('Минимальный элемент массива= ',min);

mas:=nil;

end.