Найти минимальный элемент массива A(10) и уменьшить его в два раза. Pascal ​

Free Pascal

Объяснение:

const

 n=10;

var

 a : array [0..n] of integer;

 i, m : integer;

begin

 randomize;

 m := 100;

 for i:=0 to n-1 do begin

   a[i] := random(100);

   if a[i]< m then

     m := a[i];

   write(a[i], '  ');

 end;

 writeln();

 writeln('min=', m);

 writeln('Otvet : ',(m/2):2:1);

end.