Помогите! Почему не работает программа
const nn=10000;
var
a: array[1..nn] of integer;
i,n,min,b: integer;
begin
readln(n);
b:=0;
for i:=1 to n do read(a[i]);
a[1]:= min;
for i:=1 to n do
if a[i]< min then begin
a[i]:= min;
b:=b+1;
end;
writeln(b);
for i:= 1 to n do
write(a[i],' ');
end.
Дан массив целых чисел А. Найдите количество вхождений минимального элемента.

один и тот же результат, хоть тест бы сделал

это вы про свой ответ?

я проверил ваш код один и тот же результат, условие было не корректно и я написал как я понял задачу. Есть трабл в одной строке где я первому эл. присваиваю min и я сделал инкремент в конце.

Задача указанна в условии: Дан массив целых чисел А. Найдите количество вхождений минимального элемента...

на вашей стороне правда, я не правильно понял условия, буду внимательнее. Срасибо

const

 nn = 10000;

var

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

 i, n, min, b: integer;

begin

 readln(n);

 b := 1;

 for i := 1 to n do read(a[i]);

 min := a[1];

 for i := 2 to n do  

   if (a[i] < min) then  

   begin

     min := a[i];

     b := 1;

   end

   else if (a[i] = min) then b := b + 1;

 writeln(b);

end.