Комментарии: Решаем задачи Абрамян на Паскале. Minmax18

Автор: Anton

Anton — Tue, 19 Jan 2016 10:23:13 +0000

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

Автор: Anton

Anton — Tue, 19 Jan 2016 10:19:22 +0000

Согласен,

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

if i=1 then

begin

Max:=Ni;

MaxNum:=i;

RezNum:=0;

end;

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

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

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.

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;

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.

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;

Writeln(RezNum);

end.

Автор: olegst1975

olegst1975 — Tue, 19 Jan 2016 09:26:38 +0000

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

[crayon-69d460208fb41933656576 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-69d460208fb41933656576 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;

Writeln(RezNum);

end.

[/crayon]

+ мое

[crayon-69d460208fb44823669451 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-69d460208fb44823669451 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]