Var
i, s: integer;
begin
s := 0;
for i := 10 to 99 do
if i mod 2 = 0 then
s := s + i;
writeln(s);
end.
Алгоритм подсчета числа и суммы элементов
int z[20];
int s=0,n=0;
for(int i=0;i<20;i++)
if(z[i]<8&&z[i]>2)
{
n++;
s+=z[i];
}
cout<<"sum="<<s<<", num of elem="<<n;
Пример в Excel. лист защищен без пароля, чтобы не испортить формулы. Программа работает от 0 до 255 числа. Для перевода достаточно разделить, отбросив дробную часть и затем выписать результат в обратном порядке.