Решаем задачи Абрамян на Паскале. Minmax17

Minmax17. Дано целое число $$N$$ и набор из $$N$$ целых чисел. Найти количество элементов, расположенных после последнего максимального элемента.

Решение:

program MinMax17;
var

  N,Ni,Max,MaxNum,i: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;
      end;

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

   Writeln(N-MaxNum);
end.

program MinMax17;

var

N,Ni,Max,MaxNum,i: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;

end;

if Ni>=Max then

begin

Max:=Ni;

MaxNum:=i;

end;

Writeln(N-MaxNum);

end.

Другие задачи из раздела Minmax можно посмотреть здесь.

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

olegst1975

19.01.2016 в 12:31

строка 27 скорее так:
Writeln(N-MaxNum);

Ответить
- Anton
  
  19.01.2016 в 12:50
  
  … как вариант можно и N… но к этому моменту i=N+1…
  так что почему бы и не, Writeln(i-1-MaxNum);
  
  Ответить
  - olegst1975
    
    19.01.2016 в 18:22
    
    Мне казалось, что цикл со счётчиком — цикл, в котором некоторая переменная изменяет своё значение от заданного начального значения до конечного значения(не выше)…хотя в Си, цикл for, в действительности является циклом с предусловием. Дома перепроверю.
    
    Ответить
    - olegst1975
      
      19.01.2016 в 23:22
      
      [crayon-6742e1187efcf203466027 inline="true" ] for i:=1 to10 do write(); write(i);
      
      1
      2
      3
      
      [crayon-6742e1187efcf203466027 inline="true" ]
      for i:=1 to10 do write();
      write(i);
      
      [/crayon]
      
      В Lazarus,Turbopascal7.0,PascalABC ответ -10, а в Delphi7 — 11. Значение счетчика по выходу из цикла на усмотрение транслятора. Некорректно использовать его значение. Тоже и в задаче Minmax21.
      
      Ответить
      - Anton
        
        20.01.2016 в 09:21
        
        Да… я до этого дошёл в задаче 21 🙁
        Поправил.
        Было:
        
        Writeln(i-1-MaxNum);
        
        1
        
        Writeln(i-1-MaxNum);
        
        Стало:
        
        Writeln(N-MaxNum);
        
        1
        
        Writeln(N-MaxNum);
        
        Ответить

Решаем задачи Абрамян на Паскале. Minmax17

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

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

Добавить комментарий Отменить ответ