Помогите! Почему не работает программа const nn=10000; var a: array[1..nn] of integer;...

Question

Помогите! Почему не работает программа 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. Дан массив целых чисел А. Найдите количество вхождений минимального элемента.

Answer 1

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.

Comments

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

---

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

---

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

---

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

---

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