В данной последовательности целых чисел найти минимальное значение среди неотрицательных элементов и все номера членов последовательности, равных ему

на паскаль написать

Var a: array [1 ... 1000] of integer; i, n, min, amount: integer;

begin

read (n) ; {Сначала считываем кол-во элементов}

for i : = 1 to n do

read (a[i]) ;

min : = 10000;

amount : = 0;

for i : = 1 to n do

if (a[i] = 0) then

min : = a[i];

for i : = 1 to n do

if a[i] = min then

amount : = amount + 1;

writeln ('Min: ', min, ', amount: ', amount) ;

end.