Подсчитать сумму нечетных элементов массива.

program massiv
var
a,b:array[1..50] of integer;
i,j,s,k,n:integer;
begin
writeln('vvedit kil-st elementiv');
readln(n);
for i:=1 to n do
read(a[i]);
s:=0;k:=0;
for i:=1 to n do
if odd(a[i]) then inc(s,a[i])
else
begin
inc(k);
b[k]:=a[i];
end;
writeln('suma = ',s);
write('[');
for i:=1 to k do
write(b[i]:3);
writeln(']');
end.

Const
 A: integer = 10;
var
 E: array[1..A] of integer;
 i, summ: integer;
Begin
 summ:=0;
 For i:=1 to A do
  Begin
   Write(i,': ');
   Readln(E[i]);
   If odd(E[i]) then Inc(summ,E[i]);
  End;
 writeln(summ);
End.

uses crt;
const n=10;
var a,b:array[1..n] of integer;
i,sum,p:integer;
begin
ClrScr;
randomize;
for i:=1 to n do
 begin
 a[i]:=random(20)-10;
 Write(a[i]:4);
 end;
p:=0;
sum:=0;
 for i:=1 to n do
  if a[i] mod 2<>0 then
   begin
    p:=p+1;
    b[p]:=a[i];
    sum:=sum+a[i];
   end;
Writeln;
 for i:=1 to p do
  Write(b[i]:4);
 readln;
end.

uses crt;
const n=10;
var a,b:array[1..n] of integer;
i,sum,p:integer;
begin
ClrScr;
randomize;
for i:=1 to n do
 begin
 a[i]:=random(20)-10;
 Write(a[i]:4);
 end;
p:=0;
sum:=0;
 for i:=1 to n do
  begin
   if a[i] mod 2<>0 then
    sum:=sum+a[i];
   if a[i] mod 2=0 then
    begin
     p:=p+1;
     b[p]:=a[i];
    end;
   end;
Writeln;
 for i:=1 to p do
  Write(b[i]:4);
 readln;
end.