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

• Если максимальное число первое выдает -1. Срабатывает второе сравнение. Ниже чуть подсократил все

  [crayon-67417f9df3790786354295 inline="true" ] var N,Ni,Max,MaxNum,i,RezNum:Integer; begin Write('N:'); Readln(N); for i:=1 to N do begin Write(i,' элемент:'); Readln(Ni); if (Ni=Max)and(i<>1) then begin RezNum:=i-1-MaxNum; end; if (i=1)or(Ni>Max) then begin Max:=Ni; MaxNum:=i; RezNum:=0; end; end; Writeln(RezNum); 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

  [crayon-67417f9df3790786354295 inline="true" ] var   N,Ni,Max,MaxNum,i,RezNum:Integer; begin   Write('N:');   Readln(N);   for i:=1 to N do    begin      Write(i,' элемент:');      Readln(Ni);      if (Ni=Max)and(i<>1) then       begin        RezNum:=i-1-MaxNum;       end;               if (i=1)or(Ni>Max) then       begin        Max:=Ni;        MaxNum:=i;        RezNum:=0;       end;    end;    Writeln(RezNum); end.

  [/crayon]

  + мое

  [crayon-67417f9df3793302771097 inline="true" ] var n,i,k,max,max_n1,max_n2:integer; begin read(n); read(k); max:=k; max_n1:=1; max_n2:=1; for i:=2 to n do begin read(k); if k>max then max_n1:=i; if k>=max then max_n2:=i; if k>max then max:=k; end; if max_n2=max_n1 then write(0) else write(max_n2-max_n1-1); end.

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

  [crayon-67417f9df3793302771097 inline="true" ] var   n,i,k,max,max_n1,max_n2:integer; begin     read(n);   read(k);   max:=k;   max_n1:=1;   max_n2:=1;   for i:=2 to n do     begin       read(k);       if k>max then max_n1:=i;       if k>=max then max_n2:=i;       if k>max then max:=k;           end; if max_n2=max_n1 then write(0) else write(max_n2-max_n1-1); end.

  [/crayon]

  Ответить

  • Ваше решение добавил в шапку.

    Ответить

• Согласен,

  if i=1 then begin Max:=Ni; MaxNum:=i; RezNum:=0; end;

  1 2 3 4 5 6

  if i=1 then       begin        Max:=Ni;        MaxNum:=i;        RezNum:=0;       end;

  Можно соединить с :

  if Ni>Max then begin Max:=Ni; MaxNum:=i; RezNum:=0; end;

  1 2 3 4 5 6

  if Ni>Max then       begin        Max:=Ni;        MaxNum:=i;        RezNum:=0;       end;

  Было:

  program MinMax18; var N,Ni,Max,MaxNum,i,RezNum:Integer; begin Write('N:'); Readln(N); for i:=1 to N do begin Write(i,' элемент:'); Readln(Ni); if i=1 then begin Max:=Ni; MaxNum:=i; RezNum:=0; end; if Ni=Max then begin RezNum:=i-1-MaxNum; end; if Ni>Max or then begin Max:=Ni; MaxNum:=i; RezNum:=0; end; end; Writeln(RezNum); 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 32 33 34 35 36

  program MinMax18;   var   N,Ni,Max,MaxNum,i,RezNum:Integer;   begin   Write('N:');   Readln(N);   for i:=1 to N do    begin      Write(i,' элемент:');      Readln(Ni);        if i=1 then       begin        Max:=Ni;        MaxNum:=i;        RezNum:=0;       end;        if Ni=Max then       begin        RezNum:=i-1-MaxNum;       end;        if Ni>Max or  then       begin        Max:=Ni;        MaxNum:=i;        RezNum:=0;       end;      end;      Writeln(RezNum); end.

  Стало:

  program MinMax18; var N,Ni,Max,MaxNum,i,RezNum:Integer; begin Write('N:'); Readln(N); for i:=1 to N do begin Write(i,' ýëåìåíò:'); Readln(Ni); if (Ni>Max) or (i=1) then begin Max:=Ni; MaxNum:=i; RezNum:=0; end else if Ni=Max then begin RezNum:=i-1-MaxNum; end; end; Writeln(RezNum); 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

  program MinMax18; var   N,Ni,Max,MaxNum,i,RezNum:Integer;   begin   Write('N:');   Readln(N);   for i:=1 to N do    begin      Write(i,' ýëåìåíò:');      Readln(Ni);      if (Ni>Max) or (i=1) then       begin        Max:=Ni;        MaxNum:=i;        RezNum:=0;       end      else      if Ni=Max then       begin        RezNum:=i-1-MaxNum;       end;    end;   Writeln(RezNum); end.

  Ответить