Цитата:
R.E.Mus:
посчитать сумму чётых чисел целой части числа
|
Что это обозначает? Желательно на примере, а то я что-то не догнал краями...
Если означает, что нужно у каждого элемента массива отбросить дробную часть и просуммировать четные результы, то будет так:
Код:
s := 0;
for i := 1 to n do if (trunc (a[i]) div 2) = 0 then inc (s, trunc (a[i]));
Если нужно складывать четные
цифры из целой части каждого числа, то код будет такой:
Код:
s := 0;
for i := 1 to n do begin
p := trunc (a[i]);
while p <> 0 do begin
r := p mod 10;
if (r div 2) = 0 then inc (s, r);
p := p div 10;
end;
end;