Автор: Anton

Anton — Mon, 14 Nov 2016 06:05:07 +0000

В ответ на Newton. Добавил в шапку.

Автор: Newton

Newton — Sun, 13 Nov 2016 13:28:33 +0000

Использовал тот же подход, что и в одной из предыдущих задач:

program MinMax14;

// ---------------------------------- Begin of procedure Quit 
Procedure Quit;
begin
   writeln;
   writeln;
   writeln('Press Enter to Quit');
   readln;
   writeln;
end;
// ----------------------------------- End of procedure Quit 

const
   RandLimit = 20;
   Number    = 10;

var
   Counter, CountRes  : byte;
   Foo, B, Result     : integer;
   FirstEnc           : boolean;

begin
   write('Enter B: ');
   readln(B);
   FirstEnc := true;
   CountRes := 0;
   Result   := 0;
   for Counter := 1 to Number do
      begin
         Foo := random(RandLimit);
         writeln(Counter :2, '.', Foo :5);            
         if Foo > B then 
            if FirstEnc then
               begin
                  Result   := Foo;
                  FirstEnc := false;
                  CountRes := Counter;
               end
            else
               if Foo < Result then
                  begin
                     Result   := Foo;         
                     CountRes := Counter;
                  end;
      end;
   writeln(CountRes :4, Result :4);
   Quit;
end.

program MinMax14;

// ---------------------------------- Begin of procedure Quit

Procedure Quit;

begin

writeln;

writeln('Press Enter to Quit');

readln;

writeln;

end;

// ----------------------------------- End of procedure Quit

const

RandLimit = 20;

Number = 10;

var

Counter, CountRes : byte;

Foo, B, Result : integer;

FirstEnc : boolean;

begin

write('Enter B: ');

readln(B);

FirstEnc := true;

CountRes := 0;

Result := 0;

for Counter := 1 to Number do

begin

Foo := random(RandLimit);

writeln(Counter :2, '.', Foo :5);

if Foo > B then

if FirstEnc then

begin

Result := Foo;

FirstEnc := false;

CountRes := Counter;

end

else

if Foo < Result then

begin

Result := Foo;

CountRes := Counter;

end;

writeln(CountRes :4, Result :4);

Quit;

end.

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

Автор: Anton

Автор: Newton