Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

помогите пожалуйста!

Найти сумму элементов массива, имеющих нечетное значение

Ответ оставил Гость

Вместо 10 подставляешь число элементов массива

var a:array[1..10] of integer;
sum,i:integer;
begin
Writeln(Zadayte massiv);
for i:=1 to 10 do
readln(a[i]);
sum:=0;
for i:=1 to 10 do
if i mod 2 <>0 then
sum:=sum+a[i];
writeln(Summa = ,sum);
end.