Question

Составьте на языке программирования Паскаль программу, которая считает сумму нечетных элементов массива а, состоящего из 10 элементов. Массив заполняется элементами с клавиатуры​

Answer 1

var a: array [1..10] of integer;

i,s: integer;

begin

 s:=0;

 for i:=1 to 10 do readln (a[i]);

 for i:=1 to 10 do if a[i] mod 2=1 then s:=s+a[i];

 writeln (s)

end.