Технический форум - Помогите с решением, пожалуйста

Во-первых, не клонируйте темы и топики, иначе будете наказаны (дубликат удален), во-вторых, судя по всему, Вы и не пытаетесь самостоятельно сделать это элементарнейшее задание, а упорно ищете халяву (интересно, Вы предполагаете так и всю учебу на чужих мозгах проездить?), в третьих, пункты 1 и 2 делайте, как хотите - я подобной ерундой не занимаюсь - а Паскаль-программу ладно уж, получите:

Код:

Var

 X:Array [1..50] of Integer;

 i,Imin,Min:Integer;

Begin

 Randomize;

 Writeln('Initial array:');

 Min:=200;

 Imin:=0;

 For i:=1 to 50 do

  begin

   X[i]:=30-Random(100);

   Write(X[i]:8);

   If (X[i]<0) and (X[i]<Min) then

    begin

     Imin:=i;

     Min:=X[i];

    end;

  end;

 Writeln;

 Writeln;

 Writeln('Changed array:');

 If Imin=0 then Writeln('All elements are positive!')

 else

 For i:=1 to 50 do

  If (X[i]<0) and (i<Imin) then Write(X[i]*Min:8) else Write(X[i]:8);

 Readln

End.