// находим максимальное значение
int max = arr[0];
for(int i = 1; i < 10; i++) if (arr[i] > max) max = arr[i];
// находим сколько элементов массива имеют максимальное значение
int num = 0;
for(int i = 0; i < 10; i++) if (arr[i] == max) num++;
Алфавит СС - все коэффициенты данной СС.
1ая программа считает количество голосов для этого заведен счетчик m и в конце m=7
<em>// PascalABC.NET 3.3, сборка 1547 от 07.10.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
<u>Вариант 1.</u>
begin
Writeln(Range(1,99,2).Sum) // Сумма нечетных
end.
<u>Вариант 2</u>
begin
Writeln((99+1)/2*((99-1)/2+1)) // Сумма арифметической прогрессии
end.
<u>Вариант 3</u>
begin
Writeln(Range(1,100).Where(x->x.IsOdd).Sum) // тупой перебор
end.
<u>Во всех вариантах результат 2500</u>