<span>const n=10;
var a:array [1..n] of integer;
i: integer<span>;
begin</span></span>
<span> randomize;
writeln ("Массив из 10 элементов:');
for i:=1 to n do
begin
a[i]:= random(101);
write (a[i],' ');
end<span>;</span></span>
<span> writeln('Нечетные элементы:');
for i:=1 to n do
if a[i] mod 2<>0 then
write(a[i],' ')<span>;
</span></span><span>end.
</span>
Используем рандом для заполнения массива
5.6000E+02 - 4.2000E+01 + 3.1300E+003 = 560 - 42 + 3130 = 3648