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

ЛиНа · 18.03.2012, 07:45

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

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

Vladimir_S · 24.03.2012, 09:46

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

18.03.2012, 07:45	#1 (permalink)
ЛиНа Новичок Регистрация: 18.03.2012 Сообщений: 1 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Помогите с решением, пожалуйста 1.Описать алгоритм на естественном языке. 2.На языке схем (блок схема) 3.Описать на языке Паскаль. Среди отрицательных элементов массива Х1,Х2,....,Х50 найти минимальный и помножить на него все отрицательные элементы,стоящие левее этого минимального.

24.03.2012, 09:46	#2 (permalink)
Vladimir_S Специалист Регистрация: 27.08.2008 Адрес: Санкт-Петербург Сообщений: 27,807 Сказал(а) спасибо: 340 Поблагодарили 583 раз(а) в 208 сообщениях Репутация: 113184	Во-первых, не клонируйте темы и топики, иначе будете наказаны (дубликат удален), во-вторых, судя по всему, Вы и не пытаетесь самостоятельно сделать это элементарнейшее задание, а упорно ищете халяву (интересно, Вы предполагаете так и всю учебу на чужих мозгах проездить?), в третьих, пункты 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.

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070