Дан целочисленный массив, состоящий из n элементов

const n=10;
var a:array[1..n] of integer;
    min,i:integer;
begin
write('Исходный массив: ');
for i:=1 to n do
begin
a[i]:=random(20);
write(a[i],'  ');
end;
min:=a[1];
for i:=2 to n do
if a[i]<min then
min:=a[i];
writeln;
writeln('Мин. элемент: ',min);
end.

const n=10;
var a:array[1..n] of integer;
    min,i:integer;
begin
write('Исходный массив: ');
for i:=1 to n do
    begin
    a[i]:=random(20);
    write(a[i],'  ');
    end;
min:=a[1];
for i:=2 to n do
    if a[i]<min then
        min:=a[i];
writeln;
writeln('Минимальный элемент: ',min);
writeln('Итоговый массив:');
for i:=1 to n do
    begin
    if a[i] <> min then
        a[i]:=a[i]*min;
    write(a[i]:3);
    end;
end.

const n=10;
var a:array[1..n] of integer;
    min,i:integer;
    b:boolean;
begin
write('Исходный массив: ');
for i:=1 to n do
    begin
    a[i]:= -10 + random(20);
    write(a[i],'  ');
    end;
b:=true;
for i:=1 to n do
    if not odd(a[i]) and (a[i] <> 0) then
        if b then
            begin
            min:=a[i];
            b:=false
            end
        else
            if a[i] < min then
                min:=a[i];
writeln;
if b then
    writeln('Искомых элементов нет')
else
    writeln('Минимальный элемент: ',min);
end.