В одномерном массиве X (10) из положительных и отрицательных чисел найти: Произведение минимального и максимального элементов массива.

Паскаль

var x:array [1..10] of integer;

i,min,max:integer;

begin

 for i:=1 to 10 do begin writeln('введитие x[',i,']');

 readln(x[i]);end;

 min:=x[1];

 max:=x[1];

 for i:=2 to 10 do begin

   if x[i]>max then max:=x[i];

   if x[i]<min then min:=x[i];

 end;

 writeln(min*max)

end.