//Pascal ABC.NET 3.1 сборка 1219
uses
crt;
Const
n=10;
Var
ar:array[1..n] of integer;
i,s:integer;
begin
s:=0;
writeln('Ввод элементов массива');
for i:=1 to n do
begin
write('Введите ',i,' элемент массива:');
read(ar[i]);
if odd(ar[i]) then s:=s+ar[i];
end;
clrscr;
for i:=1 to n do
write(ar[i]:4);
writeln;
writeln('Сумма нечётных элементов массива равна:', s);
end.