Найти сумму нечетных элементов массива из 20 элементов. Pascal,помогите

Question

Найти сумму нечетных элементов массива из 20 элементов. Pascal,помогите

'' '' Ученик (133), закрыт 5 лет назад

Answer 1

var i, n, sum: integer;
a: array [1..100] of integer;
begin
n:=20;
sum:=0;
for i:=1 to n do
begin
a[i]:=random (10);
write (a[i]:4);
if odd(a[i]) then sum:=sum+a[i];
end;
writeln;
writeln ('Сумма нечетных элементов массива = ', sum);
end.

Answer 2

Юра Мыслитель (6086) 7 лет назад

var a: array [1..20] of integer;
i, sum:integer;
begin
For i:=1 to 20 do
If i mod 2>1 then
sum+=a[i];
Writeln(sum);
end.

'' ''Ученик (133) 7 лет назад

блин, я все также сделал, у меня "0" и больше ничего ((

Ну так как может быть остаток больше 1, если идет целочисленное деление!? if i mod 2 = 1 then sum := sum+a[i];

Answer 3

Предлагаю вместо дурацкой проверки делением/ветвлением сделать подсчет суммы несколько проще:

for i:=1 to 20 do s:=s+a[i]*(a[i] and 1);