С клавиатуры вводятся 5 чисел, найти сумму нечетных. Программа Паскаль.

Question

С клавиатуры вводятся 5 чисел, найти сумму нечетных. Программа Паскаль.

Answer 1

var i,a,z:integer;

begin

    for i:=1 to 5 do

    begin

    read(z);

    if not( z mod 2 = 0) then  a:=a+z;

    end;

    write('sum=',a);

end.