Var D: array [1..35] of integer;
i, sum : integer;
<span>BEGIN
</span>for i:=1 to 35 do
read(D[i]);
<span>sum:=0;
for i:=1 to 35 do
if i mod 2 <> 0 then sum:=sum+D[i];
writeln(sum);
END.</span>
Txt и doc текстовый, zip архив, exe исполнительный
<h3>Алгоритм решения</h3>
Для каждого из пяти чисел:
Пока число больше нуля, увеличиваем счётчик количества цифр на 1 и прибавляем последнюю цифру к счётчику суммы.
Необходимо учесть, что для K=0 количество цифр C=1.
<h3>Код (Pascal)</h3>
var
x, i, anc, ans: integer;
procedure Sum(k: integer; var c, s: integer);
begin
c := 0;
if k = 0 then c := 1;
s := 0;
while (k > 0) do
begin
c := c + 1;
s := s + (k mod 10);
k := k div 10;
end
end;
begin
for i := 1 to 5 do
begin
read(x);
Sum(x, anc, ans);
writeln(anc, ' ', ans);
end;
end.
-------------------------------------------------
Файл решения прикреплён.
Var a: array [-10..10] of integer;
i: integer;
begin
for i := -10 to 10 do a[i] := random(100);
for i := -10 to 10 do writeln('[', i, '] => ', a[i]);
<span>end.
В Паскале =)</span>