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

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

Решение:

program MinMax9;
var
  i,N,Ni,Max1,Max2,Max1Num,Max2Num:Integer;
begin
  Write('N:');
  Readln(N);
  for i:=1 to N do
   begin
     Write(i,' элемент:');
     Readln(Ni);
     if i=1 then
      begin
       Max1:=Ni;
       Max2:=Ni;
       Max1Num:=i;
       Max2Num:=i;
      end;
     if Ni>Max1 then
      begin
       Max1:=Ni;
       Max1Num:=i;
      end;

     if Ni>=Max2 then
      begin
       Max2:=Ni;
       Max2Num:=i;
      end;
   end;
  Writeln(Max1Num,' ',Max2Num);
end.

program MinMax9;

var

i,N,Ni,Max1,Max2,Max1Num,Max2Num:Integer;

begin

Write('N:');

Readln(N);

for i:=1 to N do

begin

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

Readln(Ni);

if i=1 then

begin

Max1:=Ni;

Max2:=Ni;

Max1Num:=i;

Max2Num:=i;

end;

if Ni>Max1 then

begin

Max1:=Ni;

Max1Num:=i;

end;

if Ni>=Max2 then

begin

Max2:=Ni;

Max2Num:=i;

end;

Writeln(Max1Num,' ',Max2Num);

end.

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

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

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

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