Question

Найти минимальный элемент массива и его индекса (в паскале)

Answer 1

const

   n = 30;

var

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

   i, mini: integer;

begin

   for i := 1 to n do

   begin

       a[i] := random(30);

       write(a[i], ' ');

   end;

   writeln;

   mini := 1;

   for i := 1 to n do

       if a[i] < a[mini] then

           mini := i;

   writeln('A[', mini, ']=', a[mini]);

end.