Егэ:)
var N, x, sum, maxi, i:integer;
a:array [0..27] of integer;
begin
readln(N);
sum:=0;
for i:=1 to N do beginreadln(x);
while x>0 do beginsum:=sum+x mod 10;x:=x div 10;end;a[sum]:=a[sum]+1;sum:=0;end;
for i:=0 to 27 doif a[i]>maxi then maxi:=i;
writeln(maxi);end.
//PascalABC.NET
//Версия 3.3, сборка 1611
begin
write('сумма: ',ReadInteger('Введите число: ').ToString().Select(x->x.ToDigit()).Sum());
end.
Исходя из вашего запроса:
без отрицания k
#include <iostream>
using namespace std;
int main()
{
int a,k,s,x;
for (k=0; k<20; k++)
{
s +=((-1)*(k+1)*x^k)/3^k;
}
cout << s << endl;
system("pause"); // или _getch();
return 0;
<span>}
с отрицанием k
#include <iostream>
using namespace std;
int main()
{
int a,k,s,x;
for (k=0; k<20; k++)
{
s +=((-1)*(k+1)*x^k)/3^k;
}
cout << s << endl;
system("pause"); // èëè _getch();
return 0;
<span>}
и формулируйте вопрос корректнее.
в обоих решениях k=0 изначально</span></span>
javascript:var A = [-23, 15, 32, 0, -56, 87, 7], количество = A.reduce(function (пр, зн) { return пр + (зн > 0 ? 1 : 0); }, 0); alert(количество);
Да, не обратил внимание сразу, что вверху дан готовый массив. Результат выполнения кода: 4.