var
a:array[1..100] of integer;
x,i,n,min:integer;
begin
readln(n);
x:=1;
read(a[1]);
min:=a[1];
for I:=2 to n do
read(a[i]);
if a[i]<min then
min:=a[i];
x:=1
end;
if a[i]=min then x:=x+1;
writeln(x)
end.
Комментарий: n- количество элементов массива, вводится с клавиатуры в диапазоне от 1 до 100
var
a:array[1..100] of integer;
x,i,n,min:integer;
begin
readln(n);
x:=1;
read(a[1]);
min:=a[1];
for I:=2 to n do
begin
read(a[i]);
if a[i]<min then
begin
min:=a[i];
x:=1
end;
if a[i]=min then x:=x+1;
end;
writeln(x)
end.
Комментарий: n- количество элементов массива, вводится с клавиатуры в диапазоне от 1 до 100