ПОМОГИТЕ НАПИСАТЬ ПРОГРАММУ В ПАСКАЛЕ 12 ВАРИАНТсрочно
ПОМОГИТЕ НАПИСАТЬ ПРОГРАММУ В ПАСКАЛЕ 12 ВАРИАНТ
срочно
Гость
Ответ(ы) на вопрос:
Гость//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
Не нашли ответ?
Похожие вопросы