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

Автор: Bronislav

Bronislav — Sun, 22 Jul 2018 09:08:17 +0000

то же самое (см array32) после while нужно проверять i

if i <> 1 then Writeln(i)
else if a[i] > a[i + 1] then Writeln(1)
//else Writeln('no maximums')

if i <> 1 then Writeln(i)

else if a[i] > a[i + 1] then Writeln(1)

//else Writeln('no maximums')

Автор: Anton

Anton — Thu, 10 Mar 2016 05:16:59 +0000

опять же массив: 3 4 5 5 5 4 3
Локальных максимумов нет.
«локальный максимум — это элемент, который больше любого из своих соседей»

Автор: olegst1975

olegst1975 — Wed, 09 Mar 2016 19:58:02 +0000

Последний максимум — первый с конца элемент, который меньше предыдущего элемента. Схожая с Array32, только перебор в обратном порядке

[crayon-69991986a7129552846183 inline="true" ]
var
  n,i,max:integer;  
  a:array [1..10]of real;
begin  
  read(n);
  for i:=1 to n do read(a[i]);
  max:=1;        
  for i:=n downto 2 do if a[i]>a[i-1] then if max=1 then max:=i;    
  write(max);    
end.

[crayon-69991986a7129552846183 inline="true" ]

var

n,i,max:integer;

a:array [1..10]of real;

begin

read(n);

for i:=1 to n do read(a[i]);

max:=1;

for i:=n downto 2 do if a[i]>a[i-1] then if max=1 then max:=i;

write(max);

end.

[/crayon]

Автор: Anton

Anton — Wed, 09 Mar 2016 06:23:47 +0000

Переписал.
Было:

program Array33;
var
  a:array[1..10] of integer;
  N,i:Integer;
 
begin
  Write('N: ');
  Readln(N);
  for i:=1 to N do
   begin
    write(i,' :');
    readln(a[i]);
   end;
 
  for i:=2 to N-1 do
  if (a[i-1]<a [i]) and (a[i]>a[i+1]) then
   begin
    writeln(i);
    break;
   end;
end.
</a>

program Array33;

var

a:array[1..10] of integer;

N,i:Integer;

begin

Write('N: ');

Readln(N);

for i:=1 to N do

begin

write(i,' :');

readln(a[i]);

end;

for i:=2 to N-1 do

if (a[i-1]<a [i]) and (a[i]>a[i+1]) then

begin

writeln(i);

break;

end;

end.

</a>

Стало:

program Array33;
var
  a:array[1..10] of integer;
  N,i:Integer;

begin
  Write('N: ');
  Readln(N);
  for i:=1 to N do
   begin
    write(i,' :');
    readln(a[i]);
   end;

  i:=N-1;
  if a[N]>a[N-1] then writeln(N)
  else
   begin
    while (i>1) and (not((a[i-1]<a [i]) and (a[i]>a[i+1]))) do
     dec(i);
    Writeln(i);
  end;
end.
</a>

program Array33;

var

a:array[1..10] of integer;

N,i:Integer;

begin

Write('N: ');

Readln(N);

for i:=1 to N do

begin

write(i,' :');

readln(a[i]);

end;

i:=N-1;

if a[N]>a[N-1] then writeln(N)

else

begin

while (i>1) and (not((a[i-1]<a [i]) and (a[i]>a[i+1]))) do

dec(i);

Writeln(i);

end;

end.

</a>

Автор: olegst1975

olegst1975 — Tue, 08 Mar 2016 15:42:57 +0000

Сейчас получаем номер первого(не последнего!) лок.максимума, также без учета первого и последнего элементов