Комментарии 3

• У меня не сработало для такой поседовательности:
  N = 3,
  -1, 0, 1

  Сам решил так:

  program MinMax12; const RandLimit = 10; var Number, Counter : byte; Foo, MinPositive : integer; NoPositive : boolean; begin write('Enter the number of elements: '); readln(Number); MinPositive := 0; NoPositive := true; for Counter := 1 to Number do begin Foo := random(RandLimit) - 6; writeln(Counter :2, '.', Foo :5); if (Foo > 0) then if NoPositive then begin MinPositive := Foo; NoPositive := false; end else if Foo < MinPositive then MinPositive := Foo; end; writeln('The min positive number is: ', MinPositive); end.

  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31

  program MinMax12;   const    RandLimit = 10;   var    Number, Counter  : byte;    Foo, MinPositive : integer;    NoPositive       : boolean;   begin    write('Enter the number of elements: ');    readln(Number);    MinPositive := 0;    NoPositive  := true;    for Counter := 1 to Number do       begin          Foo := random(RandLimit) - 6;          writeln(Counter :2, '.', Foo :5);          if (Foo > 0) then             if NoPositive then                begin                   MinPositive := Foo;                   NoPositive  := false;                end             else                if Foo < MinPositive then                   MinPositive := Foo;       end;    writeln('The min positive number is: ', MinPositive); end.

  Ответить

  • Да, действительно я что то перемудрил у себя… поправил.
    Было:

    program MinMax12; var R,Min:Real; i,N:Integer; begin Write('N:'); Readln(N); Min:=-1; for i:=1 to N do begin Write(i,' число:'); Readln(R); if Min<0 then Min:=R; if (R<min ) and (R>0) then Min:=R; end; if Min<0 then Min:=0; Writeln(Min); end. </min>

    1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

    program MinMax12; var   R,Min:Real;   i,N:Integer;   begin   Write('N:');   Readln(N);   Min:=-1;   for i:=1 to N do    begin      Write(i,' число:');      Readln(R);      if Min<0 then Min:=R;      if (R<min ) and (R>0) then Min:=R;    end;    if Min<0 then Min:=0;    Writeln(Min); end. </min>

    Стало:

    program MinMax12; var R,Min:Real; i,N:Integer; begin Write('N:'); Readln(N); Min:=0; for i:=1 to N do begin Write(i,' : '); Readln(R); if ((R<min ) or (Min=0)) and (R>0) then Min:=R; end; Writeln(Min); end. </min>

    1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

    program MinMax12; var   R,Min:Real;   i,N:Integer;   begin   Write('N:');   Readln(N);   Min:=0;   for i:=1 to N do    begin      Write(i,' : ');      Readln(R);      if ((R<min ) or (Min=0)) and (R>0) then Min:=R;    end;    Writeln(Min); end. </min>

    Ответить

  • Да, но заметьте:
    NoPositive=true, когда MinPositive равняется нулю
    И
    NoPositive=false, когда MinPositive принимает какое то значение

    тоесть в принципе эту переменную можно убрать.

    У нас получиться

    if MinPositive!=0 then MinPositive := Foo; else if Foo < MinPositive then MinPositive := Foo;

    1 2 3 4 5

    if MinPositive!=0 then   MinPositive := Foo; else   if Foo < MinPositive then    MinPositive := Foo;

    Это же можно объеденить 🙂

    if (MinPositive!=0) or (Foo < MinPositive) then MinPositive := Foo;

    1 2	if (MinPositive!=0) or (Foo < MinPositive) then   MinPositive := Foo;

    И того:

    program MinMax12; const RandLimit = 10; var Number, Counter : byte; Foo, MinPositive : integer; NoPositive : boolean; begin write('Enter the number of elements: '); readln(Number); MinPositive := 0; NoPositive := true; for Counter := 1 to Number do begin Foo := random(RandLimit) - 6; writeln(Counter :2, '.', Foo :5); if (Foo > 0) then if (MinPositive!=0) or (Foo < MinPositive) then MinPositive := Foo; end; writeln('The min positive number is: ', MinPositive); end.

    1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26

    program MinMax12; const    RandLimit = 10; var    Number, Counter  : byte;    Foo, MinPositive : integer;    NoPositive       : boolean; begin write('Enter the number of elements: '); readln(Number); MinPositive := 0; NoPositive  := true; for Counter := 1 to Number do   begin    Foo := random(RandLimit) - 6;    writeln(Counter :2, '.', Foo :5);    if (Foo > 0) then     if (MinPositive!=0) or (Foo < MinPositive) then      MinPositive := Foo;   end;   writeln('The min positive number is: ', MinPositive); end.

    В общем получается решение на которое я исправил своё..
    Но вы разместили его первым, будем считать, что я украл его у вас. 🙂

    Ответить