Рассмотри изображение и определи значение параметра «Profile» припримененим модификатора «Bevel» Ккубу.Profile <0.25Profile >0.25Profile =0.25не 4.Profile = 1​

ответ:надеюсь это то что надо

const

   N = 5;

var

   a: array[1..N] of integer;

   i, iMin: integer;

begin

   writeln('Исходный массив:');

   for i := 1 to N do

   begin

       a[i] := random(100) - 50;

       write(a[i]:4);

   end;

   iMin := 1;{инциируем первым элементом}

   for i := 2 to N do {проверяем все остальные}

       if a[i] < a[iMin] then {новый минимальный}

           iMin := i; {запомнить i}

   writeln; {перейти на новую строку}

   writeln('Минимальный элемент a[', iMin, ']=', a[iMin]);

end.

Объяснение за внимание))