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

Автор: Bronislav

Bronislav — Sat, 21 Jul 2018 21:54:34 +0000

program array_36;//pascalABC.net

begin

var n := 10;

var a := ArrRandom(n, 0, 9); a.Println;

var seekFirstMax := true;

var max: integer;

for var i := 1 to n - 2 do

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

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

begin

if seekFirstMax then //если true - ищем первый максимум

begin

max := a[i];

seekFirstMax := false;

end

else if max < a[i] then max := a[i]//иначе ищем остальные

end;

Print(seekFirstMax ? 0 : max)

end.

Автор: Anton

Anton — Wed, 26 Apr 2017 07:55:43 +0000

В ответ на Kirk. Мда... решения какие то сложные для понимания... получаются... разместил это решение в шапке... :)

Автор: Kirk

Kirk — Sat, 22 Apr 2017 09:58:34 +0000

Program a36;

Var

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

n,i:integer;

max,min: boolean;

b1,b2: real;

Begin

b1:=0;

b2:=0;

Write('N=');

Readln(n);

For i:=1 to n do

Begin

Min:=False;

Max:=False;

Write(i,': ');

Readln(a[i]);

If (i=2) and (a[i-1]>a[i]) then min:=True;

If (i=2) and (a[i-1]<a[i]) then max:=True;

If (i=2) and (min=false) and (max=false) then b1:=a[i-1];

If (i>2) and (a[i-1]>a[i]) and (a[i-1]>a[i-2]) then max:=True;

If (i>2) and (a[i-1]<a[i]) and (a[i-1]<a[i-2]) then min:=True;

If (i>=2) and (max=false) and (min=false) then b1:=a[i-1];

If (b2=0) then b2:=b1;

If (b1>b2) then b2:=b1;

End;

Writeln();

Writeln(b2:5:2);

End.

Автор: Anton

Anton — Thu, 10 Mar 2016 06:58:12 +0000

Было:

program Array36;

var

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

N,i,Max:Integer;

begin

a[1]:=0;

Write('N: ');

Readln(N);

for i:=1 to N do

begin

write(i,' :');

readln(a[i]);

end;

Max:=a[1];

for i:=2 to N-1 do

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

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

Writeln(Max);

readln;

end.

</a>

Стало:

program Array36;

var

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

N,i,Max:Integer;

checkbox:boolean;

begin

a[1]:=0;

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 not(((a[i-1]<a [i]) and (a[i]>a[i+1])) or ((a[i-1]>a[i]) and (a[i]</a><a [i+1]))) then

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

if a[N-1]=a[N] and ((a[N]>Max) or checkbox) then Max:=a[N];

Writeln(Max);

end.

</a>

Автор: olegst1975

olegst1975 — Wed, 09 Mar 2016 20:34:19 +0000

Исходные данные N = 6 -3.79 -7.14 7.77 0.99 5.66 -4.40 Полученные результаты -3.79 Пример верного решения 0.00

Автор: olegst1975

olegst1975 — Wed, 09 Mar 2016 20:32:35 +0000

Массив — вещественный. Работает за редким исключением. Не согласен с Max:=a[1]. Почти всегда первый и последний элементы являются экстремумами, кроме a[1]=a[2] a[n-1]=a[n].