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

Question

Розробіть програму для обчислення мінімального числа у відкритому масиві. Кількість елементів масиву вводиться в процесі виконання програми. Масив формується випадковими цілими числами з діапазону від 0 до 75.

Answer 1

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]

min:=mas[i];

end;

writeln();

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

mas:=nil;

end.

Answer 2

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 > D[i] then M := D[i];

   end;  

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

   writeln(D);

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

end.

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