Var a:array[1..100] of integer;
i,n,min,max:integer;
begin
writeln('Введите количество элементо массива');
read(n);
writeln('Введите элементы массива');
for i:=1 to n do begin
read(a[i]);
end;
min:=a[1];
max:=a[1];
for i:=1 to n do begin
if a[i]>max then max:=a[i];
if a[i]
end;
writeln('Произведение min и max = ', min*max);
end.