Автор: Anton

Anton — Thu, 14 Jan 2016 15:44:26 +0000

Было:

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

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;

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.

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;

Writeln(MaxNum);

end.

Автор: olegst1975

olegst1975 — Wed, 13 Jan 2016 13:52:07 +0000

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

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

Автор: Anton

Автор: olegst1975