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

Question

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

Answer 1

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] < min) and (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.