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

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

Решение:

program MinMax11;
var
  i,N,Ni,Min,Max,MinNum,MaxNum:Integer;

begin
  Write('N:');
  Readln(N);
  for i:=1 to N do
   begin
     Write(i,' элемент:');
     Readln(Ni);
     if i=1 then
      begin
       Min:=Ni;
       Max:=Ni;
       MinNum:=i;
       MaxNum:=i;
      end;
     if Ni<=Min then
      begin
       Min:=Ni;
       MinNum:=i;
      end;

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

   if MinNum > MaxNum then Writeln(MinNum)
   Else Writeln(MaxNum);
   Readln;
end.

program MinMax11;

var

i,N,Ni,Min,Max,MinNum,MaxNum:Integer;

begin

Write('N:');

Readln(N);

for i:=1 to N do

begin

Write(i,' элемент:');

Readln(Ni);

if i=1 then

begin

Min:=Ni;

Max:=Ni;

MinNum:=i;

MaxNum:=i;

end;

if Ni<=Min then

begin

Min:=Ni;

MinNum:=i;

end;

if Ni>=Max then

begin

Max:=Ni;

MaxNum:=i;

end;

if MinNum > MaxNum then Writeln(MinNum)

Else Writeln(MaxNum);

Readln;

end.

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

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

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

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