Вариант 7. Дан линейный массив целых чисел.а) отыскать значение малого элемента;б)

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

i,n,min,u,m:integer;

begin

Randomize;

write(Сколько чисел в массиве: );

readln (n);

min:=9;

u:=1;

write(Какое число добавлять к нулевым элементам массива: );

readln(m);

write(Массив: );

for i:= 1 to n do

begin

a[i]:=random(10);

write(a[i], );

if a[i]lt;min then min:=a[i];

if a[i] mod 2=1 then u:=u*a[i];

if a[i]=0 then a[i]:=m;

end;

writeln( );

writeln(Малый элемент массива: ,min);

writeln(Произведение нечетных элементов массива: ,u);

write(Новое состояние массива: );

for i:=1 to n do

write(a[i], );

end.