В одномерном массиве a(10) найти значение и индекс наименьшего из положительных элементов

Question

В одномерном массиве a(10) найти значение и индекс наименьшего из положительных элементов

Answer 1

var a:array[1..10] of integer;

       i,min,j:integer;

begin

min:=maxint;

j:=0;

for i:=1 to 10 do 

begin

readln(a[i]);

if (a[i]0) then

begin

min:=a[i];

j:=i;

end;

end;

writeln('Наименьший элемент массива равен',min,' индекс равен',j);

end.