Помогите с решением, пожалуйста

[ЛиНа]

Помогите с решением, пожалуйста

1.Описать алгоритм на естественном языке.
2.На языке схем (блок схема)
3.Описать на языке Паскаль.

Среди отрицательных элементов массива Х1,Х2,....,Х50 найти минимальный и помножить на него все отрицательные элементы,стоящие левее этого минимального.

 

[Vladimir_S]

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