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

• Решение другой задачи

  Ответить

• Было:

  program MinMax13; var R,Max:Real; i,N,MaxNum:Integer; begin Write('N:'); Readln(N); Max:=-1; for i:=1 to N do begin Write(i,' число:'); Readln(R); if R>Max then begin Max:=R; MaxNum:=i; end; end; if Max<0 then begin MaxNum:=0; end; Writeln(MaxNum); Readln; 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 MinMax13; var   R,Max:Real;   i,N,MaxNum:Integer;   begin   Write('N:');   Readln(N);   Max:=-1;   for i:=1 to N do    begin      Write(i,' число:');      Readln(R);      if R>Max then       begin        Max:=R;        MaxNum:=i;       end;    end;    if Max<0 then     begin      MaxNum:=0;     end;    Writeln(MaxNum);    Readln; end.

  Стало:

  program MinMax13; var i,N,R,Max,MaxNum:Integer; begin Write('N:'); Readln(N); for i:=1 to N do begin Write(i,' ÷èñëî:'); Readln(R); if (odd(R) and (R>Max)) or (i=1) then begin Max:=R; MaxNum:=i; end; end; Writeln(MaxNum); end.

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

  program MinMax13; var   i,N,R,Max,MaxNum:Integer;   begin   Write('N:');   Readln(N);   for i:=1 to N do    begin      Write(i,' ÷èñëî:');      Readln(R);      if (odd(R) and (R>Max)) or (i=1) then       begin        Max:=R;        MaxNum:=i;       end;    end;    Writeln(MaxNum); end.

  Ответить