40 .напишите программу, которая выводит на экран в строку через пробел массив из 10 чисел сгенирированных случайным образом, а затем находит в данном массиве сумму нечетных чисел.

const N=10000;

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

i,l,s:integer;

begin

writeln('Введите количество элементов массива');

readln(l);

writeln('Сгенерированный массив: ');

s:=0;

for i:=1 to l do begin

a[i]:=random (101)-50;

s:=s+a[i];

write(a[i]:4);

end;

writeln;

write('Сумма: ',s);

end.