В городском зоопарке содержатся животные n разных видов. Для участия в международной выставке «Три твари» зоопарк должен представить трех животных различных видов. Требуется написать программу, которая вычислит число выбрать трех животных для участия в выставке. Например, если в зоопарке два медведя, тигр, лев и пингвин, то есть семь выбрать трех животных: первый медведь, тигр и лев; первый медведь, тигр и пингвин; первый медведь, лев и пингвин; второй медведь, тигр и лев; второй медведь, тигр и пингвин; второй медведь, лев и пингвин; тигр, лев и пингвин. Входные данные Содержит в первой строке натуральное число n – количество видов животных в городском зоопарке (1 ≤ n ≤ 1000 Во второй строке через пробел записаны n натуральных чисел – количество животных соответствующего вида. Число животных каждого вида не превышает 1000. Выходные данные Должен содержать одно число – количество выбрать трех животных для международной выставки.
Ответы
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
ХЕЛП МИ гайс . ИНФОРМАТИКА ДАМ МАКСИМАЛЬНОЕ КОЛ.
Автор: vdk81816778
Восмирчнпя система проще для человека чем двоичная
Автор: Kateshaeva
Составте схему нумерованные и маркированные списки
Автор: o-pavlova-8635
n, k, i, imax, j: integer;
a: array[1..100]of integer;
begin
randomize;
n := random(30) + 10;
for i := 1 to n do
begin
a[i] := Random(30);
write(a[i], ' ');
end;
writeln();
{сортировочка}
for i := 1 to n - 1 do
begin
imax := i;
for j := i + 1 to n do
if a[j] > a[imax] then
imax := j;
k := a[i];
a[i] := a[imax];
a[imax] := k;
end;
for i := 1 to n do
write(a[i], ' ');
k := 0;
for i := 2 to n - 1 do
if (a[i] <> a[i - 1]) and (a[i] <> a[i + 1]) then
k := k + 1;
if a[1] <> a[2] then k := k + 1;
if a[n] <> a[n - 1] then k := k + 1;
writeln();
writeln('No doubles - ', k);
end.