Дан массив целых чисел состоящих из 20 элементов заполнить его с клавиатуры найти 1)...

Question

Дан массив целых чисел состоящих из 20 элементов заполнить его с клавиатуры найти 1) сумму элементов имеющих нечётное значениеif a(i) mod 2<>0

Answer 1

const N = 20;

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

i,s:integer;

begin

for i:=1 to N do read (a[i]);

writeln('Элементы массива: ');

for i:=1 to N do

begin

write(a[i],' ');

if a[i] mod 2 <> 0 then s:=s+a[i]

end;

writeln;

writeln ('Сумма элементов имеющих нечётное значение равна ',s)

end.