Во-первых, не клонируйте темы и топики, иначе будете наказаны (дубликат удален), во-вторых, судя по всему, Вы и не пытаетесь самостоятельно сделать это элементарнейшее задание, а упорно ищете халяву (интересно, Вы предполагаете так и всю учебу на чужих мозгах проездить?), в третьих, пункты 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.