Найти сумму нечетных элементов массива из 20 элементов. Pascal,помогите
По дате
По рейтингу
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.
Предлагаю вместо дурацкой проверки делением/ветвлением сделать подсчет суммы несколько проще:
for i:=1 to 20 do s:=s+a[i]*(a[i] and 1);
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.
