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

Автор: Anton

Anton — Wed, 26 Apr 2017 07:49:21 +0000

В ответ на Kirk. не ну так то вроде работает... но первое и последнее условие впихивать в цикл... сомнительное удовольствие... вон.. как увеличилось уловие if по сравнению с примером в шапке :)

Автор: Kirk

Kirk — Sat, 22 Apr 2017 08:15:29 +0000

Program a34;

Var
 a: array [1..10] of real;
 n,i,k,l: integer;
 maxmin,min: real;

Begin
k:=0; // максимальный локальный минимум не найден
l:=0; // локальный минимум не найден
 Write('N=');
 Readln(n);
 For i:=1 to n do
  Begin
   Write(i,': ');
   Readln(a[i]);
   If (i=2) and (a[i-1]<a[i]) then // a[0] у нас нет, выбираем из двух
    Begin
     maxmin:=a[i-1]; // первый минимум берем за максимальный
     k:=1; 
    End;
   If (i<>n) and (i>2) and (a[i-1]<a[i-2]) and (a[i-1]<a[i]) then
    Begin
     min:=a[i-1];
     l:=1;  
    End;
   If (i=n) and (a[i-1]>a[i]) then min:=a[i]; // a[n+1] у нас нет, выбираем из двух
   If (i>2) then
    Begin
     If (l=1) and (k=1) and (min>maxmin) then maxmin:=min;
     If (l=1) and (k=0) then 
      Begin
       maxmin:=min;
       k:=1; // если не был найден ранее [19]
      End;
    End;
  End;
 Writeln();
 Writeln(maxmin);
End.

Program a34;

Var

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

n,i,k,l: integer;

maxmin,min: real;

Begin

k:=0; // максимальный локальный минимум не найден

l:=0; // локальный минимум не найден

Write('N=');

Readln(n);

For i:=1 to n do

Begin

Write(i,': ');

Readln(a[i]);

If (i=2) and (a[i-1]<a[i]) then // a[0] у нас нет, выбираем из двух

Begin

maxmin:=a[i-1]; // первый минимум берем за максимальный

k:=1;

End;

If (i<>n) and (i>2) and (a[i-1]<a[i-2]) and (a[i-1]<a[i]) then

Begin

min:=a[i-1];

l:=1;

End;

If (i=n) and (a[i-1]>a[i]) then min:=a[i]; // a[n+1] у нас нет, выбираем из двух

If (i>2) then

Begin

If (l=1) and (k=1) and (min>maxmin) then maxmin:=min;

If (l=1) and (k=0) then

Begin

maxmin:=min;

k:=1; // если не был найден ранее [19]

End;

Writeln();

Writeln(maxmin);

End.

Автор: Anton

Anton — Thu, 10 Mar 2016 05:54:47 +0000

Исправил,
Было:

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

program Array34;

var

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

N,i,Max:Integer;

begin

Write('N: ');

Readln(N);

for i:=1 to N do

begin

write(i,' :');

readln(a[i]);

end;

Max:= -32768;

for i:=2 to N-1 do

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

if a[i]>Max then Max:=a[i];

Writeln(Max);

readln;

end.

</a>

Стало:

program Array34;
var
  a:array[1..10] of integer;
  N,i,Max:Integer;
  checkbox:boolean;

begin
  Write('N: ');
  Readln(N);
  for i:=1 to N do
   begin
    write(i,' :');
    readln(a[i]);
   end;
  Max:=0;
  if a[1]<a [2] then
   begin
    Max:=a[1];
    checkbox:=False;
   end
  else checkbox:=True;
  for i:=2 to N-1 do
   if (a[i-1]>a[i]) and (a[i]</a><a [i+1]) then
    if (a[i]>Max) or checkbox then
     begin
      Max:=a[i];
      checkbox:=False;
     end;
  if (a[N-1]>a[N])then
   if (a[N]>Max) or checkbox then
    begin
     checkbox:=False;
     Max:=a[N];
    end;

  Writeln(Max);
end.
</a>

program Array34;

var

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

N,i,Max:Integer;

checkbox:boolean;

begin

Write('N: ');

Readln(N);

for i:=1 to N do

begin

write(i,' :');

readln(a[i]);

end;

Max:=0;

if a[1]<a [2] then

begin

Max:=a[1];

checkbox:=False;

end

else checkbox:=True;

for i:=2 to N-1 do

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

if (a[i]>Max) or checkbox then

begin

Max:=a[i];

checkbox:=False;

end;

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

if (a[N]>Max) or checkbox then

begin

checkbox:=False;

Max:=a[N];

end;

Writeln(Max);

end.

</a>

Автор: olegst1975

olegst1975 — Wed, 09 Mar 2016 20:07:30 +0000

Массив вещественных чисел, первый и последний элементы тоже могут быть минимумами