В массиве необходимо все отрицательные элементы умножить на квадрат его наименьшего элемента, а все неотрицательные элементы на кв

[dvpvitas]

В массиве необходимо все отрицательные элементы умножить на квадрат его наименьшего элемента, а все неотрицательные элементы на квадрат наибольшего его элемента.

[newerow1989]

Не понял::

его наименьшего элемента,

[Stilet]

Женя, ТС имеет виду найти максимум и минимум среди значений и провести с ним некие операции.

dvpvitas

Ввод массива показать сможешь?

[newerow1989]

var p:array[1..12] of integer;
    i,min,max:integer;
begin
   Randomize;
   For i:=1 to 12 do
   begin
      p[i]:=-10+Random(21);
      Write(p[i],'  ');
   end;
   Writeln;
   Writeln;
   min:=p[1];
   max:=p[1];
   For i:=2 to 12 do
   begin
      If min>p[i] then
         min:=p[i];
      If max<p[i] then
         max:=p[i];
   end;
   Writeln(min,' ',max);
   For i:=1 to 12 do
   begin
      If p[i]<0 then
         p[i]:=p[i]*min*min;
      If p[i]>0 then
         p[i]:=p[i]*max*max;
      Write(p[i],'  ');
   end;
   Writeln;
   Readln;
end.

Сойдет?