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