Question

ПОМОГИТЕ НАПИСАТЬ ПРОГРАММУ В ПАСКАЛЕ 12 ВАРИАНТ
срочно

Answer 1

//PascalABC.NET 3.2 сборка 1318

Var
  ar:array of integer; 
 i,n,min,k:integer;
begin
readln(n);
setlength(ar,n);
min:=integer.MaxValue;
for i:=0 to n-1 do
  begin
    readln(ar[i]);
    if min>ar[i] then min:=ar[i];
  end;
for i:=0 to n-1 do
  if ar[i]=min then inc(k);
writeln(k);
end.

Пример ввода:
3
1
2
1
Пример вывода:
2