Дан массив К , состоящий из 45 элементов. Элементы массива произвольные целые числа. Определить минимальный элемент массива и его индекс.

var a, i, min, mini:longint;

     arr:Array[1..100] of longint;

begin

for i:=1 to 45 do

read(arr[i]);

min = arr[1];

for i:=1 to 45 do begin

if (arr[i] < min) then

min = arr[i];

mini = i;

end;

writeln(min,' ',min);

end.

Объяснение: