var a:array[1..100] of integer; i,sum,n:integer; begin writeln('Введите размерность массива: '); readln(n); cls; randomize; sum:=0; for i:=1 to n do begin a[i]:=random(30); write(a[i],' '); if a[i] mod 2 = 1 then sum:=sum+a[i]; if i = n then writeln(); end; writeln('Сумма нечетных чисел равна: ',sum); end.program arrayyy;