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